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GENERAL INFORMATION 
PROGRAM ABSTRACT 
THIS DIAGNOSTIC PROGRAM VERIFIES PROPER PROPER OPERATION OF THE 


-* LP25, LP26, OR LPO7 LINE PRINTER AND ITS ASSOCIATED M7258 CONTROL UNIT 


WHICH INTERFACES TO THE PDP=11 CPU. THE BROAD RANGE OF TESTS 
ASSURES A COMPREHENSIVE TEST OF THE FUNCTIONAL CAPABILITY OF 
ay Yr PRINTER. THE INDIVIDUAL TESTS ARE IDENTIFIED AS 

LL $ 


INTERFACE LOGIC 

READY LINE _INTERLOCKS 
FORMS LENGTH SELECTION 
PRINTING SPEED 

DATA TRANSFER PATHS 
PRINTABLE CHARACTERS 
NON-PRINTABLE CHARACTERS 
BAND PATTERN 

SPURIOUS HAMMER FIRING 
TEST 10 PRINT CONTROL 

TEST 11 MULTIPLE LINE ADVANCE 
TEST 12 CHARACTER ALIGNMENT 


~ 
m 
nn 
“~ 
WODONAWES WR 


ANY MIX OF PRINTER TYPES (LP25, LP26, LPO7) CAN BE TESTED UP TO 
A TOTAL OF SIXTEEN UNITS. BAND CONFIGURATION (64 OR 96 CHAR) 

1S HANDELED ON A UNIT BY UNIT BASIS. ALL UNITS NEED NOT HAVE 
THE SAME BAND. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 


RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 
1.2 SYSTEM REQUIREMENTS 


A TEST STATION IS REQUIRED CONSISTING OF A PDP-11 CPU WITH A 
MINIMUM OF 16K WORDS OF MEMORY AND A CONSOLE TERMINAL WITH 
INTERFACE AT DEVICE ADDRESS 777560. THE SYSTEM ALSO REQUIRES 
AN XXDP SUPPORTED DEVICE SUCH AS AN RKO5/RK11 DISK DRIVE TO 
AFFORD A MEANS TO LOAD THE DIAGNOSTIC PROGRAM. A KW11-L LINE 
TIME CLOCK OR A KW11-P PROGRAMMABLE REAL-TIME CLOCK IS NECESSARY 
FOR MEASURING THE TIME INTERVAL FROM WHICH PRINTING SPEED IS 
DETERMINED. IF A CLOCK IS NOT INSTALLED IN THE SYSTEM, THE 
OPERATOR WILL HAVE TO USE MANUAL MODE TO MANUALLY TIME 
PRINTER OPERATION FOR A FIXED TIME INTERVAL TO CALCULATE THE 
PRINTING SPEED. 


IN A MANUFACTURING ENVIRONMENT WHERE APT/ACT/SLIDE ARE USED, 
THE TEST STATION MUST BE EQUIPPED WITH THE APPROPRIATE INTERFACE 
AND A HOST PROCESSOR WITH THE NECESSARY SOFTWARE. 


SEQ 0002 
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RELATED DOCUMENTS AND STANDARDS 


PROJECT PLAN FOR LP25 DIAGNOSTIC PROGRAM 
OCUMENT : RAS-78-008-00-U 
DATE: 6-SEP-78 


DIAGNOSTIC ENGINEERING FUNCTIONAL SPECIFICATION 
FOR CZLPLAO LP25 DIAGNOSTIC PROGRAM (PRELIMINARY) 
DATE: 29-SEP-78 


LINE PRINTER, 250 LPM (LP25) PURCHASE SPECIFICATION 
(PRELIMINARY) 


DATAPRODUCTS 300 LPM LINE PRINTER FIELD MAINTENANCE 
GUIDE (PRELIMINARY) 


DATAPRODUCTS 300 LPM LINE PRINTER OPERATOR'S GUIDE 
(PRELIMINARY) 


LINE PRINTER,LP-07 PURCHASE SPECIFICATION (PRELIMINARY) 
DIAGNOSTIC HIERARCHY PREREQUISITES 


THIS DIAGNOSTIC IS COMPATIBLE WITH ALL MEMBERS OF THE PDP-11 
COMPUTER FAMILY. THE DIAGNOSTIC IS INTERFACED TO THE PDP-11 
DIAGNOSTIC SUPERVISOR THROUGH WHICH IT INTERFACES TO THE 
ENVIRONMENT. 


THE DIAGNOSTIC CAN BE USED IN A VARIETY OF OPERATING SYSTEMS 
TO FULFILL DIFFERENT REQUIREMENTS. THE DIAGNOSTIC CAN BE 
LOADED USING XXDP IN A FIELD SERVICE OPERATION, LOADED USING 
THE APT/ACT/SLIDE DIAGNOSTIC MONITORS IN A MANUFACTURING 
ENVIRONMENT, OR MANUALLY LOADED USING PAPER TAPE. 


THE APPLICABLE PDP-11 CPU, MEMORY, AND PERIPHERALS SHOULD BE 
RUN TO VALIDATE PROPER OPERATION OF THE SYSTEM BEFORE RUNNING 
THIS DIAGNOSTIC. 


ASSUMPTIONS 


THE LINE PRINTERS UNDER TEST SHOULD HAVE POWER APPLIED AND BE 
PLACED ON LINE IN READINESS FOR TESTING. EACH LINE PRINTER 

MUST HAVE ITS OWN M7258 CONTROLLER SET UP_AT A DIFFERENT DEVICE 
ADDRESS. THE DIAGNOSTIC PROVIDES A DEFAULT DEVICE ADDRESS OF 
777514 WHICH CAN BE USED WHEN A SINGLE LINE PRINTER IS BEING 
TESTED OR FOR THE FIRST UNIT WHEN MULTIPLE LINE PRINTERS ARE 
UNDER TEST. IT WILL BE NECESSARY FOR THE OPERATOR TO RUN THE 
LINE PRINTER OFF LINE IN THE SELF TEST MODE BEFORE RUNNING THE- 
DIAGNOSTIC IN ORDER TO DETERMINE WHETHER THE 64 OR 96 CHARACTER 
BAND IS INSTALLED. 


FORMS LENGTH MUST BE PRESET TO 11 INCHES. VERTICAL PRINTING 
MUST BE PRESET TO_6 LINES PER INCH, 
IF PRINTER IS LPO7,1T MUST BE EQUIPPED WITH SPECIAL DiAG. 


—_——_—__ _-—_—_—_—_ 


eT 
_ USER DOCUMENTATION CZLPLDO MACRO M1113 30=DEC-80 09:36 PAGE 5-2 , 


SEQ 0004 


TCVFU PAPER TAPE. 


A PATCH IS REQUIRED IN THE DIAGNOSTIC TO CIRCUMVENT AN 
INCOMPATIBILITY IN THE DIAGNOSTIC SUPERVISOR. IT IS NECESSARY 
TO ADD 11236 TO THE CONTENTS OF THE ADDRESS ‘L$LAST"* WHICH 

1S FOUND AT THE END OF THE ASSEMBLY LISTING. THIS SUM IS USFD 
AS THE ADDRESS INTO WHICH 42760 IS DEPOSITED. 177777 IS 
DEPOSITED INTO THE SUBSEQUENT MEMORY ADDRESS. 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMAND S 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND ErFECT 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 
PROCEED CONTINUE FROM AN ERROR HALT 
EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 
DROP DEACTIVATE A _ UNIT 
PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION 4.0) 
DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 
‘FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
_ ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNI7ED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE ‘'STA’’ INSTEAD OF ‘'START’’. 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD"’. 


SWITCH EFFECT 

/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE = /TESTS:1:5:7-10, 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN, 

/PASS :DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 

/F LAGS : FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 

/EOP : DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 


G 1 
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DDDDD PASSES ONLY. (DDDDD = 1 TO 64090) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10=12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-5/PASS: 1000/EOP: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1C90 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE ''/TES:1=5°' INSTEAD OF *'/TESTS:1-5"". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 

FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

1XR* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) ; 

PRI DIRECT MESSAGES TO LINE PRINTER 


PNT PRINT TEST NUMBER AS TEST EXECUTES 


SEQ 0005 
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BOE “BELL'' ON ERROR 
UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 
ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
®ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A ‘BELL’ ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER:BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘CHANGE HW (L) ?'' 
YOU MUST ANSWER ‘'Y'' AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN ‘PRELOADED'* USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A ‘'Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


MUNITS (D) ? 1 


UNIT 1 

LP11 ADDRESS: (0) (177514) ? 

INTERRUPT VECTOR : (Q) (200) ? 

ENTER O IF LP25, 1 IF LP26, 2 IF LPO7 (0) (0) ? 
96 CHARACTER BAND (L) ? ANSWER Y OR N. 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY ‘CHANGE SW (L) ?°° 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

‘v'"| THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


RUN MANUAL INTERVENTION TESTS (N) ? DEFAULT IS NO 


PERFORM MANUAL PRINT SPEED MEASUREMENT! (N) ? DEFAULT IS AUTOMATIC 
DESIRED TIME INTERVAL FOR PRINT SPEED CALCULATION (60) ? DEFAULT IS 60 SECONDS 


; 4 
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MAXIMUM IS 60 SEC. 
MINIMUM IS 4 SEC. 
TESTING IN U.S.A. (Y) ? SELECTS U.S. OR BRITISH BAND PATTERN 
AUTODROP ERROR COUNT .D) 5 ? DROPS ANY UNIT FROM TEST WHICH EXCEEDS SPECIFIED NO. OF ERRORS 


2.6 EXTENDED P=TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 

UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 

A FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED 10 IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE 
1S ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?_ 1<CR~.... 
Q-FACTOR (0) 1? O<CR> ii 


UNIT 3 

CSR ADDRESS (0) ?  160000<CR> ~ 
SUB-DEVICE # (0) ? 2<CR> 

Q-FACTOR (0) 0 ? <CR> a4 4 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 
CSR ADDRESS (0) ? 160000<CR> 
5<CR> 


SUB-DEVICE # (0) ? 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 


SEQ 0007 
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SUB=DEVICE # (C> ?. 6<CR> 
Q-FACTOR (0) 0? 1<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB=DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR 7HE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
ieee THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 0,1<CR> 
Q-FACTOR (0) 0? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ?  160000<CR> 
SUB-DEVICE # (0) ?_ 2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

"'="" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2. 3. 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 

BE ON 4N EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 

THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


# UNITS (D) ? 8<CR> 


SEQ 9008 
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UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ?  QO=7<CR> 
Q-FACTOR (0) 0 ? i Seer 1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAS! REPLY. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE ''R NAME'', WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE *'START'' 

5. ANSWER THE "'CHANGE HW'’ QUESTION WITH ‘'Y"’ 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE ‘‘CHANGE SW'’ QUESTION WITH ‘N’’ 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE ‘‘IER'’ FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


NAME = DIAGNOSTIC NAME 

TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 

UNIT NUMBER = 0 ~ N (N IS LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
agg el ION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 

THE ‘‘IER’’ OR ""IBR'' FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


~ WHERE ; 


SEQ 0009 
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EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE ‘‘IER'', ‘‘IBR'' OR ‘'IXR’’ FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 


MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


‘ 


3.2 SPECIFIC ERROR MESSAGES 


ERROR 
1 


14 


15 


DESCRIPTION 


"PRINTER ERROR" 
ERROR CONDITION IN THE PRINTER. 


"PRINTER NOT READY" 
PRINTER NOT READY TO ACCEPT DATA. 


‘PRINTER DID NOT INTERRUPT" 
FAILURE IN INTERFACE LOGIC. 


‘LOADING PRINTER BUFFER DOES NOT CLEAR READY’ 
FAILURE IN INTERFACE LOGIC. 


"PRINTER INTERRUPTED AT SAME LEVEL AS THE 
PROCESSOR’ 
FAILURE IN INTERFACE LOGIC. 


‘PRINTER ERROR"' 
ERROR CONDITION IN THE PRINTER. 


‘PRINTER NOT READY'' 
PRINTER NOT READY TO ACCEPT DATA. 


‘PAPER LOW INTERLOCK SWITCH FAILURE"’ 
FAULTY INTERLOCK SWITCH. 


“HAMMER BANK INTERLOCK SWITCH FAILURE"’ 
FAULTY INTERLOCK SWITCH. 


“CHARACTER BAND INTERLOCK SWITCH FAILURE’’ 
FAULTY INTERLOCK SWITCH. 


ERROR MESSAGES #11 AND #12 HAVE BEEN ELIMINATED 


"INTERRUPT SERVICING FOR THE FOLLOWING 
DEVICE DID NOT OCCUR®* 

GLOBAL ERROR INDICATING INTERRUPT FOR 
DATA TRANSFER DID NOT OCCUR. 


‘PRINTER STATUS ERROR"’ 
GLOBAL ERROR INDICATING PRINTER ERROR 
CONDITION. 


‘OUTPUT TIMEOUT ERROR'' 
GLOBAL ERROR INDICATING TRANSMISSION 
OF LAST CHARACTER DID NOT OCCUR 


SEQ 0010 
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16 "VFU INTERLOCK FAILURE"’ 
FAULTY INTERLOCK SWITCH ON VFU TAPE READER COVER 


17 ‘BAND GATE LATCH INTERLOCK FAILURE”’ 
FAULTY INTERLOCK SWITCH 


4.0 PERFORMANCE AND PROGRESS REPORTS 
PERFORMANCE AND PROGRESS REPORTS ARE NOT SUPPLIED. 


5.0 DEVICE INFORMATION TABLES 
DEVICE INFORMATION APPEARS IN THE GLOBAL DATA SECTION. 


6.0 TEST SUMMARIES 


TEST 1 
INTERFACE LOGIC 
VERIFIES OPERATION OF INTERFACE LOGIC BETWEEN THE PRINTER AND THE CPU. 


TEST 2 
READY LINE INTERLOCKS 
VERIFIES OPERATION OF THE READY INTERLOCK SWITCHES. 


TEST 3 

FORMS LENGTH SELECTION 

VERIFIES ALL POSITIONS OF THE FORM LENGTH SELECT SWITCH FOR PROPER 
PAPER MOVEMENT. 


TEST 4 

PRINTING SPEED MEASUREMENT 

DETERMINES PRINTING SPEED ON THE BASIS OF THE PRINTING TIME INTERVAL 
AND THE NUMBER OF LINES PRINTED. 


TEST 5 : 

DATA TRANSFER PATHS 

CHECKS THE DATA TRANSFER PATHS FROM THE PRINTER OUTPUT TO 
THE PROCESSOR INTERRACE. 


TEST 6 J 
PRINTABLE CHARACTERS 
CHECKS FOR PROPER PRINTING OF ALL PRINTABLE CHARACTERS. eee 


TEST 7 . 
NON-PRINTABLE CHARACTERS 
CHECKS £OR PROPER DETECTION OF ALL NON-PRINTABLE CHARACTERS. 
ALSO, ON PRINTERS WITH 64 CHARACTER BANDS, IT CHECKS TO MAKE SURE 
- THAT CODES (140 THRU 177) ARE CONVERTED TO CODES (100 THRU 137). 
ee 


2 ote 


8 a 
-BAND PATTERN . 


t- 
> ~e» 6 s 


~ N 1 
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PRODUCES AN IMAGE OF THE ENTIRE BAND PATTERN. 


TEST 9 

SPURIOUS HAMMER FIRING 

CHECKS FOR SPURIOUS HAMMER FIRINGS BY TAKING NOTE OF ANY 
PRINTING THAT MAY OCCUR OUTSIDE A WEDGE PATTERN. 


TEST 10 

PRINT CONTROL 

CHECKS THAT CHARACTERS IN EXCESS OF 132 CHARACTERS ON A LINE 
ARE DISREGARDED. 


TEST 11 
CHECKS MULTIPLE LINE ADVANCE 
CHECKS THE MULTIPLE LINE ADVANCE FOR PROPER PAPER MOVEMENT. 


TEST 12 
CHARACTER ALIGNMENT 
CHECKS CHARACTER ALIGNMENT BY OVERPRINTING EACH. LINE. 


CZLPLDO LP25, LP26, LPO7 DIAGNO MACRO M11 
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-TITLE CZLPLDO LP25, LP26, LPO7 PIAGNOSTIC 
-ENABL AMA 
-SBITL IDENTIFICATION 


PRODUCT CODE: AC~E634D-MC 
PRODUCT NAME: CZLPLDO LP25, LP26, LPO7 ¥IAG 
MAINTAINER: SMALL SYSTEMS DIAGNOSTICS 

; AUTHORS: JOHN CHATALIAN 

; DONALD RICE 


RALPH SCHAUBER 
GLENN A. PERNA 


DATE 12-JAN-81 
COPYRIGHT (C) 1979, 1981 


;DIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSSETTS 01754 


> THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU- 
: SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY 
; OTHER COPIES THEREOF, MAY NOT BE PROVIDED * OTHERWISE MADE 
; ie TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM 


TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND 


: OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


: THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
; EQUIPMENT CORPORATION. 


- DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
> ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 


SEQ 0013 


‘ 


“. 


Se 
| 
- CZLPLDO LP25, LP26, LPO7 DIAGNO MACRO M1113 30=DEC-80 09:36 PAGE 8 
| IDENTIFICATION 
723 
724 p++ 
<4 + FUNCTIONAL DESCRIPTION 
727 + THIS DIAGNOSTIC PROGRAM VERIFIES PROPER OPERATION OF THE LP25, LP26, LPO7 
is > LINE PRINTER, AND !T'S ASSOCIATED INTERFACE MODULE. 
730 - ANY MIX OF LP25, LP26, LPO7 PRINTERS MAY BE TESTED, UP TO A TOTAL OF 


SIXTEEN UNITS. 


; THE PROGRAM CONSISTS OF TWELVE TESTS, 
; THREE OF THE PRINTER TESTS INVOLVE MANUAL INTERVENTION. 


> KXDP+ 
739 — 
; VERSION A-0 27-SEP-79 R. SCHAUBER 
: HISTORY REV. A-O INITIAL RELEASE 
4 ; REV-C SUPERVISOR / XXDP+ COMPATABLE 
749 ; REV. B-0 DOCUMENTATION CHANGE 29-NOV-79 
750 : CHANGE INIT CODE TO SET PRIO ON NEW PASS 
752 : REV. C-0 INCLUDE LP26 SUPPORT  13-JUN-80 
55 : INCLUDE TEST MESSAGES TC THE PRINTERS 
ee : INCLUDES LINE CLOCK SUPPORT FOR LSI-11 
12-JAN-81 


756 ; REV. D-0 INCLUDE LPO7 SUPPORT 


NNN NSN NNN ONNNN NN ONIN 
oa ae Se ee ee ee YA iy 
ANARWR HO OONANRWI 
. . . os — . . . . . 


SEQ 0014 


: THE PROGRAM IS COMPATIBLE TO THE PDP=11 DIAGNOSTIC SUPERVISOR, ACT/SLIDE, AND 


| IDENTIFICATION 


5 
ea C00000 


779 
780 002000 
781 002000 
782 
783 002000 


CZLPLDO LP25, L. P26, LPO? TEST 
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MACRO M1113 30=DEC-80 09:36 PAGE 9 


TITLE CZLPLDO LP25, LP26, LPO7 TEST 
.SBTTL PROGRAM HEADER 


-MCALL SVC 
SVC : INITIALIZE SUPERVISOR MACROS 
-MCALL STRUTT 
STRUCT ;STRUCTURED MACRO PACKAGE 
000000 $LSTIN= 0 ; LIST ASSY CODE LEFT 
000000 $LSTTAG= 0 ; LIST TAGS LEFT 
177777 $LOCTAG= -1 
000000 SVCINS= 0 sLIST INSTRUCTIONS 
000000 SVCTST= 0 zLIST TEST TAGS 
000000 SVCSUB= 0 sLIST SUBTEST TAGS 
000000 SVCGBL= 9 ;LIST GLOBAL TAGS 
00000: SVCTAG= 0 :LIST OTHER TAGS 
~ENABL AMA 
~ENABL ABS 
-ENABL LC 
002000 -=2000 
BGNMOD 
POINTER BGNSW,BGNSF T 
HEADER CZLPL.D.0,60,1,340 
LSNAME : : :DIAGNOSTIC NAME 
103 -ASCII /C/ 
132 ASCII /2Z/ 
114 ASCII /L/ 
120 ASCII /P/ 
114 ASCII /L/ 
000 BYTE 0 
000 -BYTE O 
000 BYTE 0 
LSREV:: ;REVISION LEVEL 
104 ASCII /D/ 
LS$DEPO:: 30 
060 ASCII /0/ 
LSUNIT:: :NUMBER OF UNITS 
000000 -WORD 0 
LSTIML:: sLONGEST TEST TIME 
000060 -WORD 60 
LSHPCP:: ;POINTER TO H.W. QUES. 
036700 -WORD L$HARD 
L$SPCP:: :POINTER TO S.W. QUES. 
037072 -WORD LS$SOFT 
LSHPTP:: sPTR. TO DEF. H.W. PTABLE 
002244 WORD L$HW 
L$SPTP :PTR. TO S.W. PTABLE 
002262 WORD L$SwW 
LS$LADP :DIAG. END ADDRESS 
037450 ORD L$LAST 
LSSTA:: ;RESERVED FOR APT STATS 
000000 WORD 0 
L$CO:: 
000000 WORD 0 


002022 ‘ 
002024 2: 
002024 . 
002026 rt 
002026 .W 
002030 
002030 . 
002032 
002032 , 


SEQ 0015 


ee 


| CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 9-1 
PROGRAM HEADER 


SEQ 0016 


002034 LEDTYP:: sDIAGNOSTIC TYPE 

002034 000001 ~ WORD 1 

002036 LSAPT:: APT EXPANSION 

002036 000000 -WORD 0 

002040 LSDTP:: :PTR. TO DISPATCH TABLE 
002040 002132 .WORD L$DISPATCH 

002042 L$PRIO:: ;DIAGNOSTIC RUN PRIORITY 
002042 000340 .WORD 340 

002044 LSENVI:: zFLAGS DESCRIBE HOW IT WAS SETUP 
002044 C00000 . WORD 

002046 LSEXP1:: s EXPANSION WORD 


002046 000000 -WORD 0 

002050 LSMREV:: :SVC REV AND EDIT & 

002050 003 -BYTE C$REVISION 

002051 003 BYTE CSEDIT 

002052 LSEF:: sDIAG. EVENT FLAGS 

002052 000000 -WORD 0 

002054 000000 -WORD 0 

C02056 L$SPC:: 

002056 000000 -WORD 0 

002060 LSDEVP:: : POINTER TO DEVICE TYPE LIST 
002060 002222 .WORD L$DVTYP 

002062 LSREPP:: :PTR. TO REPORT CODE 

002062 000000 -WORD 0O 
002064 LSEXP4:: 

002064 000000 -WORD 0 
002066 LSEXPS:: 

002066 000000 -WORD 0 
002070 LSAUT:: ;PTR. TO ADD UNIT CODE 
002070 000000 -WORD 0 

6 zPTR. TO DROP UNIT CODE 
0 


;LUN FOR EXERCISERS TO FILL 


002072 L$DUT:: 
002072 000000 . WORD 
002074 LSLUN:: 
002074 000000 . WORD 
002076 LSDESP:: :POINTER TO DIAG. DESCRIPTION 
002076 002162 -WORD LS$DESC 
002100 LSLOAD:: ;GENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT E$LO4D 
002102 000000 -WORD 0 
002104 L$ICP:: ;PTR. TO INIT CODE 
005754 . WORD LSINIT 
LS$CCP:: sPTR. TO CLEAN-UP CODE 
010064 -WORD LS$CLEAN 
LSACP:: :PTR. TO AUTO CODE 
002254 .WORD 1$AUTO 
L$PRT:: ;PTR. TO PROTECT TABLE 
002122 -WORD L$PROT 
L$TEST:: ; TEST NUMBER 
0021 000000 -WORD 0 
2 L$DLY:: sDELAY COUNT 
0021 000000 -WORD 0 
002120 LSHIME:: ;PTR. TO HIGH MEM 
002120 000000 -WORD 0 
784 
785 ’ 
786 : THe FOLLOWING IS A LOAD PROTECTION TABLE 


RRRENNOORER 


002102 LSETP:: ;POINTER TO ERRTBL 


CZLPLDO LP25, LP26, LPO? TEST 
ADER 


PROGRAM HE 
787 
788 002122 
002122 
789 002122 
790 002124 


791 002126 
792 002130 


000000 
177777 


177777 


F 2 
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L$PROT:: 


BGNPROT 


. WORD 
ENDPROT 


SEQ 0017 


 CZLPLDO LP25, LP26, LPO7 TEST 
_ DISPATCH TABLE 


801 


é 
| 
| 
802 
803 
804 
805 
0022 
806 
807 
808 


809 


002236 


000014 
010260 


035512 


4a 1 ODO os 
aE? See 
6 -O-OOW 


Ono 
WIAN 


Om mm a SO 
ON HM HN HW 
DEA NMAOAKAOFN 


G 2 
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= 3 OS os SS 
—-—-OFNVINO-O— 
—NRMPOFNUIE RS 


.SBTTL DISPATCH TABLE 


:++ 
> THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


: 17 IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


_—_—<— 
° 


DISPATCH 12 ;X= NUMBERS OF TESTS 
.~WORD 12 
LSDISPATCH:: 
WORD T1 
WORD T2 
WORD T3 J 
WORD T4 
WORD T5 
wORD T6 
WORD 7 
WORD T8 
WORD 19 
WORD T10 
WORD T11 
WORD T12 
:FOR USE ON REVISION C OF THE SUPERVISOR 
Spest DESCRIP <CZLPLDO LINE PRINTER DIAGNOSTIC> 
L +3 
ASCIZ /CZLPLDO LINE PRINTER DIAGNOSTIC/ 
EVEN 
DEVTYP <LP25,LP26,LP07> 
LSDVTYP:: 


eASCIZ = /LP25,LP26,LP07/ 


-EVEN 


SEQ L018 


 CZLPLDO LP25, LP26, LPO? TEST 
| DEFAULT HARDWARE P=TABLE 


00 00 C0 00 00 00 00 Co CO 
— et tt SS et 
OONAUS WR 


002242 


836 002254 
002254 


840 002254 
002254 


842 002254 


909586 


000004 


177514 


000240 


104461 


H 2 
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.SBTTL DEFAULT HARDWARE P=TABLE 


++ 

THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
THE TEST=<DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE RUN-TIME P=TABLE. 


BGNHW DF PT 
. WORD O08 T= SHW/2 
L$HW:: 
DFPTBL 
.WORD 177514 :LP25 REGISTER ADDRESS 
.WORD 200 :LP25 INTERRUPT VECTOR 
-WORD 0 O IF LP2 
IF LP26 


IF 64 CHAR BAND 
IF 96 CHAR BAND 


INTERRUPT VECTOR PRIORITY IS 4 AND CANNOT BE CHANGED 


-. 
: 2 IF LPO? 
-WORD 0O ; : 


ENDHW 
L10001: 


BGNAUTO 
L$AUTO:: 


NOP : NOT USED 
ENDAUTO 
TRAP C$AUTO 


L10002: 


SEQ 0019 


CZLPLDO LP25, LP26, LPO7 TEST 


SOF TWARE P=TABLE 


8 

853 002260 
002260 
002262 
002262 

854 

855 002262 

856 

857 

858 002264 

859 

860 

861 002266 

862 

863 

864 

865 002270 

866 


867 
868 002272 
869 
870 
871 002274 


002274 
872 


000005 


000001 


000005 


I 
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-SBITL SOFTWARE P=TABLE 


2 


-+¢ 
; THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM 
3; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW 

WORD 
L$SwW:: 
SFPTBL:: 
INHINT: . WORD 
MANSPD: .WORD 
PERIOD: .WORD 
USA: .~WORD 
MAXERR: 


SFPTBL 
L10003-L$Sw/2 


60. 


70 IF NO INTERVENTION TESTS 

37 IF MANUAL © semanas TESTS 
[DEFAULT IS NO 

30 FOR AUTOMATIC PRINT SPEED 

37 FOR MANUAL PRINT SPEED TEST 
SAUTOMATIC DEFAULT VALUE 
;OPERATOR TO SELECT TIMING VALUE 
FROM 4 TO 60 SECONDS. INITIAL 


[DEFAULT VALUE IS 60 SECONDS. 


1 FOR TESTING IN U.S.A. 

0 FOR TESTING IN G.B./EUROPE 

> DIFFERENT BAND PATTERNS * 
UTODROP ERROR 


.WORD 5 COUNT 
; IF ERROR COUNT EXCEEDS MAXERR THE UNIT WILL BE DROPPED FROM. TEST 


END SW 
10003: 


SEQ 0020 


SS 


CZ7LPLDO LP25, LP26, LPO? TEST 
1/0 MACRO DEFINITIONS 


9 
924 002274 


J 2 
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.SBTTL i/0 MACRO DEFINITIONS 
-MACRO — ADD ,BFCNT,ERR,PRINTS 
V 


ADD ,BUF ADD SAVE THE BUFFER ADDRESS 
[BUFFER BYTE COUNT BF CNT 
; OUTPUT TO ALL UNITS 


MOV BF CNT ,BUF CNT 


MOV #-1,PRINTR 
-IF B ERR 

MOV ALPERR,ERRSVC 
-ENDC 


-I1F NB ERR 
MOV ERR, ERRSVC 


-ENDC 
.1F B PRINTS 
MOV 


#1, 3UF REP ; PRINT ONCE DEFAULT 
-ENDC 
.1F NB PRINTS 
a MOV PRINTS ,BUFREP 3; SUPPLY PRINT COUNT 
-EN 
JSR PC, IOCTRL 
-ENDM  QUTPUT 


MACRO OUTPUI ADD,.BFCNT,ERR,UNIT,PRINTS 
MOV ADD .BUF ADD 


MOV BF CNT ,BUF CNT 
-IF B ERR 

MOV ALPERR,ERRSVC 
- ENDC 
IF NB ERR 

MOV ERR, ERRSVC 
- ENDC 
.-1F B PRINTS 

MOV #1 ,BUF REP ; PRINT ONCE DEFAULT 
- ENDC 
.1F NB PRINTS 
net MOV PRINTS ,BUFREP ; SUPPLY PRINT COUNT 
-EN 

UNIT, PRINTR ; SUPPLY UNIT NUMBER 

— PC, JOCTRL CALL THE DRIVER 


; PRINTS IS A PARAMETER CONTROLLING THE NUMBER IF TIMES THE _ OR 


; MESSAGE IS TO BE PRINTED (SENT TO THE PRINTER). 


PRINTER SPEED OF 300 L 
2 A REPEAT COUNT OF 88 MAX. 
3 AN INITIAL BAND STARTUP + IME OF 2.5 SE 


tA TIMEQUT 0 OF 20. SECONDS IS FURNI SHED BASED ON THE FOLLOWING ASSUMPTIONS : 
: 1 PAGE OF LINES AT 8 LPI. 
: CONDS. 


mn 
S: 
3 
i] 


;CALL THE DRIVE® 


SAVE BUFFER ADDRESS 
;BUFFER BYTE COUNT BFCNT 


SEQ 0021 


Ae ig th LP26, LPO? TEST 
GLOBAL A 


926 
927 
oss 002274 


934 
938 002274 


oe’ 


K 2 
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.SBTTL GLOBAL AREAS 
BGNMOD 


SEQ 0022 


; THE GLOSAL EQUATES SECTION Neg +s PROGRAM EQUATES 


; THAT ARE USED IN MORE THAN ONE TEST 


EQUALS 
; BIT DIFINITIONS 
BIT15== 100000 
B1T14== 40000 
B1T13== 20000 
BIT12== 10000 
B1T11== 4000 
BIT10== 2000 
BITO9== 1000 
BITO8== 400 
BIT07== 200 
B1T06== 100 
BITO5== 40 
BIT04== 20 
BITO3== 10 
BITO2== 4 
BITO1== 2 
BiTOO== 1 
BIT9== BITOY 
BIT8== B1108 
BIT7== 81707 
BIT6== BIT06 
BIT5== BITOS 
BIT4== BIT04 
BIT3== B1T03 
BIT2== BITO2 
BIT1== B1T01 
BITO== B1T00 


+ EVENT FLAG DEFINITIONS 


>  €F32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUN! CATION 


EF .START== 32. 
EF .RESTART== 31. 
EF.CONTINUE== 30. 
EF .NEW== 29. 
EF .PWR== 28. 


* PRIORITY LEVEL DEFINITIONS 


PRI07== 340 
PR106== 300 
PRI05== 240 
PR104== 200 


START COMMAND WAS ISSUED 


; NUE WAS ISSUED 
> A NEW PASS HAS BEEN STARTED 


; A POWER-FAIL/POWER-UP OCCURRED 





CZLPLDO iste LP26, LPO? TEST 


GLOBAL AREA 


L 2 
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PRIO3== 140 

PRIO2== 100 

PRIOI== 40 

PRIOO== 0 

OPERATOR FLAG BITS 

EVL== 4 

LOT== 10 

ADR== 20 

IDU== 40 

ISR== 100 

UAM== 200 

BOE == 400 

PNT== 1000 

PRI== 2000 

IXE== 4000 

IBE== 10000 

IER== 20000 

LOE== 0000 

HOE== 100000 

LF==12 

FR==14 

CR==15 

DEL==177 

PRIORITY LEVEL DEFINITIONS 

PRIO7== 340 

PR106== 300 

PRIOS== 240 

PR104== 200 

PRIO3== 140 

PRIO02== 100 

PRIO1== 40 

PRIOO== 0 

GLOBAL ERROR CODES FOR USE BY GENERAL ERROR ROUTINE 

STATER= 1 ; TRANSMITTER STATUS ERROR_IN OUTPUT 

TIMOUT= 2 TIMEOUT ERROR IN 10 DRIVER MODULE 
{THIS ERROR INDICATES THE LAST CHARACTER 
:WAS NOT TRANSMITTED WITHIN A GIVEN TIME 

NOINTR= 3 GROSS TIME OUT ERROR. THE SPECIFIED DID NOT 
INTERRRUPT. THEREFORE I0 DRIVER MODULE WAS 
NOT CALLED 

“SBITL GENERAL REGISTER USAGE DEF INI TIONS 

7RO -—- RESERVED FOR USE BY THE MACRO PACKAGES 

:R1 - MAXIMUM NUMBER OF UNITS TO TEST LSUNIT~1 

{R2 «UNIT NUMBER BY 2. USED TO CALCULATE OFFSET INTO PROPER 

3 PRINTER TABLE 

AS TERPORMAY STppact 


SEQ 9023 


——————-- 





GENERAL REGISTER USAGE DEFINITIONS 


M2 
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| 978 :R5 
| 979 =R6 STACK POINTER 
980 =R7 PROGRAM COUNTER 
981 ; 
982 
983 
984 ; 
385 ; LP STATUS TABLE BIT DEFINITIONS 
987 100000 ERROR = 81115 ‘ 
988 040000 DROPED = BIT14 
989 020000 ACTIVE = BIT13 
990 010000 FLAG96 = BIT!2 : 96 CHAR BAND 
992 002000 FLAGO7 = BIT10 ;SEE DEVICE CODE BELOW 
993 001000 FLAG26 = BIT9 SEE DEVICE CODE BELOW 
99% 000377 LOBYTE = 377. =: BIT MASK FOR CLEARING LOBYTE (COUNTER) 
996 
997 : DEVICE CODE 
998 
999 
$s “ ; BITS 9 AND 10 ARE A DEVICE CODE , SUCH THAT: 
1002 - : BIT 10 BIT 9 DEVICE 
1003 ; 0 0 LP25 
1004 ay 0 1 LP26 
1005 ; 1 0 
1006 : 1 1 


SEQ 0024 


LPO7 
RESERVED FOR FUTURE EXPANSION 


[oa 


CZLPLDO LP25, atte LPO7 TEST 


GLOBAL DATA SECTION 
1008 


= 


ed eh a cal eel cal a cat ela a 
lelelelelelelelslele) 
ab ab ah ad ad ed ch oD ad od 
WONAUSWN—O 


oO 
Nm 
Oo 
S 
~m 


1021 
1 


1025 
1026 002322 
1027 
1028 
1029 
1030 002324 


1034 34 
1035 002336 
1036 

1037 002340 
1038 002342 
1039 

1040 

1041 

1042 002344 
1043 002346 
1044 

1045 

1046 

1047 002350 
104 

1049 002352 
1051 002354 
10 


10 

1057 002356 
1058 

1059 

1066 002416 
1061 


1062 
1063 002452 
1064 


000016 


000020 
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-SBTTL GLOBAL DATA SECTION 


FLAG: .~ WORD 0 
LINCNT: .WORD 0 
LSTCNT: .WORD 0 
COUNT: .WORD 0 

NT: WORD 0 
STRCNT: .WORD 0 
CHRGEN: .WORD 0 
UNIT: -WORD 0 
LUNIT .~ WORD 0 
PTABAD: .WORD 0 
PRINTR: .WORD 0 
CLKTYP: .WORD 0 
CLOCKP: .WORD 0 
CLKCSR: .WORD 0 
CLKSET: .WORD 0 
CLKVEC: .WORD 0 
CLKENA: .WORD 0 
ERRCOD: .WORD 0 
ERRFLG: .WORD 0 
UUT: .~ WORD 0 


INDEX: .WORD OQ 
VFUCMD: .WORD 0 


[MACRO VARIABLES 

BUFADD: .WORD 0 

BUFCNT: .WORD 0 

BUFREP: .WORD 0 

“LP25 PARAMETER WORD TABLES 

iPcsR: .REPT 16. 
“WORD 


0 

-ENDR 
LPVEC: .REPT 16 
«WORD OQ 

-ENDR 


LPBUF: .REPT 16. 
-WORD 0 





3<CR> FLAG FOR USE BY SUPERVISOR 
ZLINE COUNTER 


;UNIT COUNTER FOR SINGLE UNIT TESTING 
;UNIT COUNTER FOR ERRORS 
SAND TESTS NOT USING THE OUTPUT 


MACROS. 
;P-TABLE ADDRESS RETURNED BY GPHARD 
: SELECTED LINE NO. 


:CLOCK TYPE CONTROL WORD 

31= NO CLOCK AVAILABLE 

32= KW11-L LINE CLOCK 

33= KW11-P PROGRAMABLE CLOCK 
; CLOCK P-TABLE ADDRESS 
;CLOCK CSR ADDRESS 

; CLOCK TIME SET A ADDRESS 
;CLOCK VECTOR ADDRESS 

:CLOCK ENABLE BITS 

TERROR CODE 1YPE FOR GENERAL 
ERROR ROUTINE 

;EXPECTED ERROR INDICATOR 

;_# UNITS ACTUALLY UNDER TEST 
sEXITS BACK TO IO DRIVER EQUAL 
31 IF ERROR WAS EXPECTED. 


;BUFFER ADDRESS OF DATA TO BE SENT 
:TO THE PRINTER 
;NUMBER OF BYTES TO TRANSFER 


; NUMBER OF TIMES TO PRINT 


: ADDRESS OF CSR FOR EACH LP11 
;, INTERRUPT VECTOR ADDRESS 


; DATA BUFFER REGISTER ADDRESS 


SEQ 0025 


| 
| 
| 
| 


1065 

1066 002512 

1067 

1068 

1069 002552 

4 y 

1078 002612 
4 

1075 002652 
7? 

1078 002712 
50 

1081 002752 
: 

108% 00301z 

7 003052 


1090 003112 
1091 003114 


10 
1095 003154 
1096 003156 


003160 


CZLPLDO LP25, aie LPO7 TEST 
GLOBAL DATA SECT 


000020 


000020 


000020 


000020 


000020 


000020 


000020 


000020 


000000 
000020 


000000 
000000 


000226 


STATUS: 
CURADD : 
MSGCNT: . 
REPCNT: . 
MSGADR: . 
CURCNT : 
LPINTR: ; 
DELCNT: . 


ERRSVC: 
ERRTBL:: 


0 
-REPT 16. 
0 


_SBTTL OUTPUT BUFFER 
7150 BYTES IS RESERVED FOR THE 


OUTBUF : 


-EVEN 
»REPT 
-BYTE 
-ENDR 


150. 
0 


B 3 
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; UNIT STATUS 


; CURRENT ADDRESS OF OUTPUT DATA BYTE 


; INITIAL BYTE COUNT OF MSG FOR REPEAT RESTORE 


; NO. OF TIMES TO REPEAT MESSAGE 


; ADDRESS OF DATA TO PRINT START OF DATA 


: CURRENT COUNT REMAINING TO OUTPUT 


; INTERRUPT ROUTINE ADDRESS 


; TIMEOUT DELAY COUNTER 


; ERROR ROUTINE DISPATCH ADDRESS 
; ERROR COUNT FOR EACH UNIT 


; WORK AREA 


OUTPUT BUFFER AREA 


SEQ 0026 


kk ak a a a a a a a a a ss SS a St SS 


a a a a a a a a td ss a ts tt a tt ot SS 
w 


~— 
~— 
a 
ws 


ce 
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TEXT SECTION 


SEQ 0027 


.SBTTL GLOBAL TEXT SECTION 
«NLIST BEX 
++ 


> THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
: MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
MORE THAN ONE TEST. 


003406 120 122 111 CSRERR: .ASCIZ /PRINTER ERROR/ 
003424 120 122 111 RDYERR: .ASCIZ /PRINTER NOT READY/ 
003446 120 101 120 PAPSWI: .ASCIZ /PAPER LOW INTERLOCK SWITCH FAILURE/ 
003511 110 191 115 BNKSWI: .ASCIZ /HAMMER BANK INTERLOCK SWITCH FAILURE/ 
003556 103 110 101 BNDSWI: .ASCIZ /CHARACTER BAND INTERLOCK SWITCH FAILURE/ 
003626 124 122 101 INTER1: .ASCIZ /TRANSMIT INTERRUPT TIMEOUT/ 

3661 120 122 111 TXERR: .ASCIZ /PRINTER STATUS ERROR/ 
003706 117 125 124 OUTTIM: .ASCIZ /OUTPUT TIMEOUT ERROR/ 
003733 125 116 111. TXNOIN: .ASCIZ /UNIT FAILED TO INTERRUPT/ 
003764 101 114 114 UUTEQO: .ASCIZ /ALL UNITS HAVE BEEN DROPPED. .RESTART../ 
004033 045 116 045 VFUSEL: .ASCII /%N%AINSURE THAT VFU-FLS SWITCH ON EACH UN!T IS IN THE / 
904121 045 116 045 VFUSE1: .ASCIZ /%N%A''VFU'’ POSITION. 2N/ 
004147 116 117 040 NOCLK: .ASCIZ /NO CLOCK AVAILABLE FOR TIMING TESTS/<7><7> 
004215 102 101 116 BGTSWI: .ASCIZ /BAND GATE LATCH INTERLOCK FAILURE/ 
004257 126 106 125 nS a -ASCIZ /VFU INTERLOCK FAILURE/ 

-LIST BEX 
3; FORMAT STATEMENTS USED IN PRINT CALLS 

004 306 045 101 114 LPDROP: .ASCIZ /%ALP11 UNIT %D2%A DROPPED FROM TEST%N/ 
004311 120 061 061 
004314 040 125 116 
004317 111 124 040 
004322 045 104 062 
004325 045 101 040 
004330 104 122 117 
004333 120 120 105 
004336 104 040 106 
004 341 122 117 115 
004 344 040 124 105 
004347 123 124 045 
004352 116 000 


[oa 


' C2LP 
| GL 
| 
| 


ge 


SEO SSS CS Cee - 


| 


WEWR 0 OONAUEWR— 


N 


NNNNNNNNWNO 
SaNAARINASSS 


oO 


ee ae ek a et es st a as a os ot 2 os SS oS os os tS HH SY SYS ts ot tt SH es 


ee ek ek as a “ag ss ot a 2 ts SH ot os I SS 


00 00 Co 
Wr=— 


004354 013746 

006316 
004374 062716 
004410 004466 


412 005202 


004416 010237 
422 006237 


004426 104456 
004430 000016 
003061 


DO LP25, LP26, LPO? TEST 
SUBROUTINES SECTION 


002336 
002336 


004402 


003114 


002074 
002074 


dD 3 
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000003 


. SBTTL 


soe 


++ 


LPERR: 


50000$: 


50003$: 


GLOBA! SUBROUTINES SECTION 


THE GLOBAL SUBROUTINE SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED BY MORE THAN ONE TEST. 


; FUNCTIONAL DESCRIPTION: 
SUBR 


OUTINE TO PRINT THE GENERAL ERROR INFORMATION. 
PRINTS THE ERROR MESSAGE IN THE FOLLOWING FORMAT: 


"ERROR AT CSR XXXXXX UNIT YY"" 


WHERE XXXXXX= DEVICE CSR ADDRESS 
YY= UNIT NUMBER THAT FAILED 


CALLING SEQUENCE 
JSR PC,LPERR 

REQUIRED PARAMETERS 
ERRCOD MUST BE SET TO ONE OF THE ERROR CODES DESCRIBED 
UNDER ERROR CODES. 


R2 IS USED INTERNAL TO THE ROUTINE. 
THE ROUTINE DOES A SAVE ON R2 
AND RESTORES IT PRIOR TO EXITING. 


SELECT ERRCOD OF 3 VERIFY ;SELECT PROPER MESSAGE FORMAT 
MOV ERRCOD ,~(SP) 

BLT 50005$ 

CMP ERRCOD ,#3 

BGT 50005$ 


(SP) 
ADD #50000$, (SP) 
MOV a(SP)+,PC 


-WORD 50004$ 

-WORD 50003$ 

-WORD 50002$ 

-WORD 50001$ 

CASE 1 STATUS ERROR 
LET ERRTBL(R2) := ERRTBL(R2) + #1 

INC ERRTBL (R2) 

LET L$LUN := R2 SHIFT 1 

MOV R2,L$LUN 

ASR $LUN 


LSL 
ERRHRD 14,TXERR 
TRAP CSERHRD 
«WORD 14 
-WORD TXERR 





SEQ 0028 


| — 3 


SEQ 0029 
CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 17-1 
| GLOBAL SUBROUTINES SECTION 
004434 000000 ~WORD 0 
CASE 2 OUTPUT TIMEOUT ERROR 
000425 BR 50005$ 
50002$: 
LET ERRTBL(R2) := ERRTBL(R2) + #1 
005262 003114 INC ERRTBL (R2) 
LET L$LUN := R2 SHIFT -1 
010237 002074 MOV R2,L$LUN 
006237 002074 ASR L$LUN 
ERRHRD 15,O0UTTIM : 
104456 TRAP CSERHRD 
000017 .WORD 15 
003706 .WORD OUTTIM 
000000 .WORD 0 
CASE 3 
000412 BR 50005$ 
50001$: 
: NEVER RECIEVED THE INTERRUPT 
LET ERRTBL(R2) := ERRTBL(R2) + #1 
005262 003114 INC ERRTBL (R2) 
LET L$LUN := R2 SHIFT -1 
010237 002074 MOV R2,L$LUN 
006237 002074 ASR L$LUN 
ERRHRD 16, TXNOIN 
104456 TRAP CSERHRD 
000020 .WORD 16 
003733 WORD  TXNOIN 
000000 .WORD 0 
ENDSELECT 
50004$: 
50005$: 
IF ERRTBL(R2) GT MAXERR THEN 
026237 003114 002272 CMP ERRTBL(R2) ,MAXERR 
003402 BLE 50006$ 
004737 005612 aa PC,DROPIT ; MAXIMUM ERROR COUNT EXCEEDED ! 
50006$: 
LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR 
042762 100000 002512 BIC MERROR, STATUS (R2) 
LET ERRCOD := #0 
005037 002336 CLR ERRCOD 
LET @LPCSR(R2) := #100 : CLEAR THE ERROR BIT AND ENABLE INTERRUPTS 
012772 000100 002356 MOV #100, aLPCSR(R2) 
000207 RTS PC zAND EXIT 
: BIN2DA BINARY TO DECIMAL ASCII CONVERSION ROUTINE 
: ENTER WITH NUMBER TO BE CONVERTED ON THE STACK 
; FOLLOWED BY THE ADDRESS OF A 5 BYTE BUFFER 


; FOR THE ASCII STRING. 5 DIGITS WILL BE CONVERTED 
: LEADING ZEROES WILL BE CONVERTED TO SPACES. 





' CZLPLDO LP25, LP26, LPO? TEST 
| GLOBAL SUBROUTINES SECTION 


1242 004676 
004676 


010446 
010546 


016604 
012705 
005037 
005037 
000402 
005337 
005737 
002435 
026615 
002405 
161566 
005237 
000770 


005737 


003410 


052737 
113724 
005237 
000402 


112724 


062705 


000006 
004742 
004754 
004756 


000004 


004760 


004760 


000010 


000010 
004756 


004756 
004754 
000060 


004756 
004754 


000040 


000002 


, 3 
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004760 


004756 


BIN2DA: 


B 
50010$: 


50007$: 


50012$: 


50013$: 


50014$: 


50015$: 


50016$: 


PUSH R4, 
MOV 
MOV 
LET RG: 
MOV 
LET RS : 
MOV 
LET FLAG 
CLR 
LET COUN 
CLR 


; 8.(SP) HAS NUMBER 
DECR DIGITS FROM #4 


MOV 
R 


TST 


T 50011$ 
WHILE 8.(SP) GE 
8. (SP), (R5) 


CALL BY ySR PC,BIN2DA 


R5 


#TABLDA,RS 
DA := #40 
FLAGDA 

TD := #0 
COUNTD 


#4,DIGITS 
50007$ 


DIGITS 
DIGITS 


50013$ 
LET 8. (SP) 


(R5),8. (SP) 


LET COUNTD 


; GET ADDRESS FOR ASCII STRING 
; GET ADDRESS OF DECIMAL TABLE 
; LEADING ZERO FLAG 


TO BE CONVERTED 
TO #0 BY #1 ; DO 5 DIGITS 


é 


(R5) DO ; CREATE A DIGIT 


:= 8.(SP) = (R5) 
:= COUNTD + 41 


; CONVERT DIGIT TO ASCII OR SUPPLY A SPACE 
IF COUNTD GT #0 OR FLAGDA GT #0 THEN 


ELSE 


MOVB 
END] 


COUNTD 
50014$ 
FLAGDA 
50015$ 


LET COUNTD 
#60, COUNTD 


:= COUNTD SET.BY #60 


LET (R4)+ :B= COUNTD 
COUNTD, (R4)+ 


LET FLAGDA 
FLAGDA 


50016$ 


LET (R4)+ 
eet 


:= FLAGDA + #1 


:B= #40 


; DO THE NEXT DIGIT 
~~ + #2 


R5 := R5 
#2,R5 


SEQ 0030 


CZLPLDO LP25, LP26, LPO? TEST 
_ GLOBAL SUBROUTINES SECTION 


1243 004702 
004702 005037 

1244 004706 
706 000736 


1245 
1246 004710 
004710 005737 
004714 001002 
1247 004716 
004716 112744 
1248 004722 
004 


1249 
1250 004722 
004722 016666 
1251 004730 
004730 012605 
004732 012604 


062706 
1253 004740 000207 


1256 004742 023420 

004750 000012 
1257 004754 000000 
1258 004756 000000 
1259 004760 000000 


004756 


004754 


000060 
000004 


000004 


001750 
000001 


MACRO M1113 


000010 


000144 


50011$: 


50017$: 


TABLDA: 


FLAGDA: 
COUNTD: 
DIGITS: 


Ss 3 


30=DEC-80 09:36 PAGE 17-3 


LET COUNTD := #0 
CLR COUNTD 


ENDDECR 
BR 50010$ 


; IF NUMBER WAS A ZERO PRINT A ‘0° 
IF FLAGDA EQ #0 THEN 
TST FLAGDA 
BNE 50017$ 
LET -(R4) :B= #60 
MOVB #60,-(R4) 
END IF 


3 CLEAN UP THE STACK AND EXIT 
LET 8.(SP) := 4(SP) 
MOV 4(SP) ,8. (SP) 


POP R5,R4 

MOV (SP)+,R5 
MOV (SP)+,R4 
LET SP := SP + #4 
ADD #4, SP 

RTS PC 


«WORD 10000.,1000.,100.,10.,1 


«WORD 0Q 
«WORD 0 
-WORD 0 


SEQ 0031 


CZLPLDO LP25, LP26, LPO? TEST 
1/0 DRIVER 


032772 
001061 


100000 


005762 
003416 


117272 
005262 


002752 


002552 
002552 


052762 
005362 
052772 
0004 37 


020000 
002752 
000100 


005362 


005762 
003424 


016262 
016262 
005062 117272 
005262 
005362 


002652 
002652 


002712 
002612 
002552 
002552 
002752 





H 3 
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.SBTTL 1/0 DRIVER 


“THE 1/0 DRIVER a loses IS INVOKED BY MEANS OF THE INTERRUPT SYSTEM. 


> CALL TO IT IS JMP 
T RTI. 


URN 


E 
SENTER ROUTINE WIT:'4 R2 SET UP TO DESIRED UNIT *2. R2 IS USED 


3TO CALCULATE OFFSET INTO PROPER TABL 


E. 
:RI EQUALS MAXIMUM NUMBER OF UNITS ON SYSTEM UNDER TEST. 


CHECK FOR ERROR FLAG IN STATUS REG. 


: 


:B= @CURADD(R2) 


ODRV: IF #BIT15 NOTSETIN @LPCSR(R2) THEN 
002356 BIT #B1T15,@LPCSR(R2) 
BNE 500208 
; IF COUNT NOT ZERO SEND NEXT BYTE 
IF CURCNT(R2) GT #0 THEN 
TST CURCNT(R2) 
BLE 50021$ 
LET @LPBUF (R2) 
002452 MOVB @CURADD (R2) , @LPBUF (R2) 
LET CURADD(R2) 
INC CURADD (R2) 


* ENABLE INTERRUPT FOR NEXT BYTE 
= LET STATUS(R2) := 


002512 BIS MACTIVE ,STATUS (Re) 
LET CURCNT(R2) := 
DEC CURCNT (R2) 
LET @LPCSR(R2) := 
002356 BIS #100, @LPCSR(R2) 
BR 50022$ 
50021$: 
; CURRENT MSG DONE, IF PRINT COUNT NOT 
LET REPCNT(R2) 
DCC REPCNT( Re) 
IF REPCNT(R2) GT #0 
TST REPCNT (R2) 
BLE 50023$ 
T CURADD(R2) 
002552 MOV MSGADR(RD). CURADD (R2) 
LET CURCNT(R2) 
002752 MOV MSGCNT(R2) , CURCNT(R2) 
LET @LPBUF (R2) 
002452 MOVB eimai | @L PBUF (R2) 
‘ T CURADD(R2) 
INC CURADD(R2) | 
LET CURCNT(R2) 
DEC CURCNT(R2) 


:= MSGADR(R2) ; 
:= MSGCNT(R2) ; 
:B= @CURADD(R2) ; 
:= CURADD(R2) + #1 
:= CURCNT(R2) = #1 ; 


:= CURADD(R2) + #1 


STATUS(R2) SET.BY ACTIVE 
CURCNT(R2) = #1 
@LPCSR(R2) SET.BY #100 


ZERO SEND AGAIN 


:= REPCNT(R2) - #1 


THEN 


RESTORE THE MSG ADDR 
RESTORE THE BYTE COUNT 
RESEND THE MESSAGE 

; BUMP THE POINTER 
DROP BYTE COUNT 


SEQ 0032 


C2 
| 


LPLDO peer LP26, LPO7 TEST 


O DRIVE 


005154 
005154 
1317 oot se 


05154 
1318 005156 


052762 
012772 
000406 


042762 
012772 


000410 


052762 


012737 
004777 


012602 
000002 


020000 
000100 


020000 
000000 


100000 


000001 
175736 


t's 
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002512 
002356 


002512 
002356 


002512 
002336 


LET STATUS(R2) := STATUS(R2) SET.BY MACTIVE 


BIS #ACTIVE,STATUS(R2) 
LET @LPCSR(R2) := #100 ; RE-ENABLE INTERRUPTS 
MOV #100, @LPCSR(R2) 
ELSE 
BR 50024$ 
50023$ 


> CURRENT MSG DONE, REPEAT COUNT =0 
+ CLEAR ACTIVE AND DISABLE INTERRUPTS. 


LET STATUS(R2) := STATUS(R2) CLR.BY #ACTIVE 
BIC #ACTIVE, STATUS (RD) 
LET @LPCSR(R2) := #00 
MOV #00 aLPCSR(RD) 
ENDIF 
50024$: 
ENDIF 
50022$: 
ELSE 
RR 50025$ 
50020$: 
: CLEAR ERROR CONDITION, ENABLE INTERRUPTS 
3 = ERROR FLAG 
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 
BIS #ERROR, STATUS (R2) 
LET ERRCOD := #STATER 3; STATUS ERROR 
MOV ASTATER,ERRCOD 
JSR PC, dERRSVC 
nei ERROR SERVICE SHOULD CLEAR ERROR BIT AND ENABLE INITR 
f 
50025$: 


(SP)+,R2 


SEQ 0033 


CZLPLDO a LP26, LPO? TEST 
1/0 CONTR 


— 
WW 
rr 
=O 


es a a st a ss os as I SS 


34 005160 
005160 010246 
005162 010346 


é 35 
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-SBTTL 1/0 CONTROL 
+ 


THE I/0 CONTROL SUBROUTINE IS 
THIS ROUTINE ¥ INVOKED BY A 
INPUTS: PRINTR <1 F 

N FOR P 
BUFADD ADDRESS 


ERRSVC ADDRESS 
BUFREP IS NO. O 


Be Se Be Be Be Be Be Be Be Be Se 


IOCTRL: PUSH R2,R3 
MOV R2,-(SP) 
MOV R3,-(SP) 


A SINGLE ENTRY QUEUE MANAGER. 


JSR FROM AN 1/0 CALL. 


OR ALL_TERMINALS 


RINTER NUMBER > 
OF MESSAGE 


TO PRIN 
Bus CNT BYTE COUNT TO TRANSMIT TO PRINTER 


OF ERROR SERVICE SUBROUTINE 
F TIMES TO PRINT THE MSG 


ALL — SELECTED 


; OTHERWISE TO UNIT NUMBER IN PRINTR 


* IF PRINTR IS -1 QUE OUTPUT TO 


IF PRINTR EQ #=-1 THEN 
CMP 


005164 023727 002320 177777 PRINTR,#=1 
005172 001005 BNE 0026$ 

1340 005174 LET R3 := LSUNIT 
005174 013703 002012 LSUNIT,R3 

1341 005200 LET L$LUN := #0 
005200 005037 002074 CLR LSLUN 

1342 005204 ELSE 
005204 000405 BR 50027$ 
005206 50026$: 

1343 005206 LET R3 := #1 
0052 012703 000001 V #1,R3 

1344 005212 LET LSLUN := PRINTR 
0052 013737 002320 002074 MOV PRINTR,LSLUN 

1345 005220 ENDIF 
005220 50027$: 

1346 3 

1347 ; REPEAT TILL R3 = C 

1348 : 

1349 005220 CTLLOP: 

1350 005220 IF R3 EQ #0 THEN 
005220 005703 TST R3 
005222 001002 BNE 50030$ 

1351 005224 INLINE <JMP CTLEND> 
005224 000137 005536 JMP CTLEND 

1352 005230 ENDIF 

1353 005230 50030$: 

: USE R2 AS AN INDEX INTO THE UNIT TABLES 
LET R2 := L$LUN SHI 


1354 : 
1355 ; 
1356 005230 
005230 013702 002074 
005234 006302 L 
1357 005236 
1858 005236 005037 002336 


MOV L$LUN,R2 
Re 


LET ERRCOD := #9 
CLR ERRCOD 


FT 1 


SEQ 0034 


Kk 3 


| SEO 0035 
| | areas LP25, LP26, LPO? TEST MACRO M1113 30=DEC-80 09:36 PAGE 19-1 
1359 ; IF THE UNIT HAS BEEN DROPPED SELECT THE NEXT UNIT 
| 1361 005242 IF #DROPED NOTSETIN STATUS(R2) THEN 
005242 032762 040000 002512 BIT #DROPED, STATUS (R2) 
| syep 009250, 001128 BNE 500318 
| ie? TEST FOR DVC ERROR BIT SET 
1365 005252 IF #BIT15 SETIN @LPCSR(R2) THEN 
| 008252 032772 100000 002356 BIT -#BIT15,@LPCSR(R2) 
| 005260 001407 BEQ 500328 
1366 005262 LET ERRCOD := #STATER ; STATUS REG ERROR BIT 15 SET IN CSR 
003262 012737 000001 002336 Moy —_-sASTATER. ERRCOD 
1367 005270 LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 
005270 052762 100000 002512 BIS HERROR, STATUS (R2) 
1368 005276 ELSE 
005276 000455 BR 500338 
s3g9 002300 500328: 
1370 : MAKE SURE PREVIOUS MSG IS DONE 
1372 005300 IF CURCNT(R2) GT #0 THEN 
005300 005762 002752 TST CURCNT(R2) 
005304 003452 BLE 500348 
1373 005306 IF MACTIVE NOTSETIN STATUS(R2) THEN 
005306 032762 020000 002512 BIT —_-#ACTIVE ,STATUS(R2) 
v37q 008314 001004 BNE  50035$ 
ib ied + OUTPUT WAS QUEUED BUT 1/0 DRIVER WAS NEVER INVOKED (VIA INTERRUPT) 
1377 005316 LET ERRCOD := #NOINTR ; NO INTERRUPT 
005316 012737 000003 002336 MoV ——-ANOINTR, ERRCOD 
1378 005324 ELSE 
005324 000442 BR -500368 
005326 500358: 
1379 905326 WHILE #ACTIVE SETIN STATUS(R2) DO 
005326 500378: 
005326 032762 020000 002512 BIT RACTIVE ,STATUS(R2) 
v3ep 023 001436 BEQ 500408 
1381 005336 LET DELCNT(R2) := #100. ; 20 SEC. DELAY MAX 
005336 012762 000144 003052 Mov #100. ,DELCNT(R2) 
1382 005344 DELAY 2. ; 200MS LOOPS 
005344 012727 000002 MOV #2, (PC) + 
005350 000000 . WORD 
005352 013727 002116 Mov LSDLY, (PC)* 
005356 000000 “WORD 0 
360 005367 177772 BEC = ~6(PC) 
005364 001375 BNE 
005366 005367 177756 DEC © =22PC) 
005372 001367 BNE. =20 
1383 005374 LET DELCNT(R2) := DELCNT(R2) = #1 
005374 005362 003052 DEC DELCNT(R2) 
1384 005400 IF DELCNT(R2) EQ #0 THEN 
005400 005762 003052 TST DELCNT(R2) 
001011 BNE 500418 


005404 
1385 005406 LEF ERRCOD := #TI]MOUT 


1/0 C 


1386 
1387 
1388 


1391 


00 
1389 
00 


00 
1390 
00 


005406 
005414 
005414 
005422 
005422 


012737 
042762 
052762 


000736 


005737 
001403 


004777 
000425 


013762 
013762 
013762 
013762 
013762 


005762 
003403 


012772 


005062 


Roe oo LP26, LPO? TEST 


000002 
020000 
100000 


002336 


175446 


002350 
002350 
002352 
002352 
002354 
002752 


000100 


003052 


a 


MACRO M1113 30=DEC-80 09:36 PAGE 19-2 


002336 
002512 
002512 


002552 
002712 
002752 
002612 
002652 


002356 


50041$: 


50040$: 
50036$: 
50034$: 
50033$: 


MOV 
BIC 
BIS 


BR 


TST 
BEQ 


#TIMOUT,ERRCOD 
MACTIVE,STATUS(R2) 
: MERROR, STATUS (R2) 
ENDIF 


LET STATUS(R2) 
LET STATUS(R2) 


ENDDO 
50037$ 


ENDIF 
ENDIF 
ENDIF 
IF ERRCOD NE #0 THEN 


ERRCOD 
50042$ 


+ REPORT THE ERROR 


50042$: 


> @ UP THE MESSAGE AND ENABLE INTERRUPTS 
: THE 1/0 DRIVER WILL PICK UP FROM HERE. 


50044$: 
50043$: 
50031$: 
CLEAR 


BR 


OUT 


CLR 


JSR 
ELSE 
500438 


LET CURADD(R2) 
BUFADD, CURADD(R 2) 
LET MSGADR(R2) 
BUF ADD, erg 
LET CURCNT(R2) 
BUF CNT, CURCNT (R2) 
LET MSG 


SGCNT(R2) : 


BUF CNT, ey ge! 


EPCNT(R2) : 


BUFREP, are 


PC,@ERRSVC 


BUF ADD 
BUF ADD 
BUF CNT 
BUF CNT 
BUF REP 


URCNT(R2) GT #0 THEN 


CURCNT (R2) 
50044$ 


LET @LPCSR(R2) := 


#100, aLPCSR(R2) 
ENDIF 
ENDIF 


ENDIF 


ANY TIMEOUT COUNT 


LET DELCNT(R2) := #0 
DELCNT(R2) 


#100 


SEQ 0036 


STATUS(R2) CLR.BY #ACTIVE 


STATUS(R2) SET.BY #ERROR 


; BYTE ADDRESS 
; MESSAGE ADDRESS 
; OUTPUT COUNT 
; BYTE COUNT 
; PRINT COUNT 


; ENABLE INTERRUPTS 


postr a rr pag i-<tesip t iets _ 


m3” 


SEQ 0037 
CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=-DEC-80 09:36 PAGE 19-3 ; 
1/0 CONTROL 
eh : SELECT THE NEXT UNIT AND DECRIMENT THE LINECOUNT 
| 1420 005524 LET R3 := R3- #1 
005524 005303 DEC R 
1421 005526 LET L$LUN := LSLUN + #1 
005526 005237 002074 INC L$LUN 
1422 005532 000137 005220 JMP CTLLOP 
1423 005536 CTLEND: 
1424 005536 POP R3,R2 
005536 012603 MOV (SP)+,R3 
005540 012602 MOV (SP)+,R2 
1425 005542 000207 RTS PC 
1426 
1427 pt+t+ 
> | ; SUBROUTINE QUIET 
1430 t THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL QUEVED OUTPUT 
1431 > JS FINISHED. THE DELAY IS ACCOMPLISHED BY QUEUEING A NULL 
1432 > MESSAGE TO ALL LINES. 
1433 j--cc- 
1434 
1435 005544 QUIET: OUTPUT #0,40 : NULL MESSAGE OUTPUT 
1436 005606 000240 NOP 
1437 005610 000207 RTS PC 


1438 





Bite 


1/0 C 





1447 

1448 005612 
005612 

1449 005620 
005620 

1450 005626 

1451 005632 
00 


00 
1452 005656 
5656 
1453 005662 
005662 
1454 005666 
00 


00 
1455 005674 


00 
1456 edly 
00 


571 
1457 005716 
005716 
He = 4 005716 


— 
a 
> 
an 

33g 

FRAT 

SS ie 

OAMwan 


: 
1469 005720 
y 005720 
1470 005724 
005724 
005724 
005732 

1471 005734 
005734 





oe Seer ie LP26, LPO? TEST 


052762 
012762 
005072 
013746 


005037 


023737 
002007 


013700 


040000 002512 
177777 ~=002752 
002356 
002074 
000002 
000006 
003114 
002342 
002342 


003764 
000001 


000004 


002074 
002074 002012 


002074 


N 3 
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FUNCTIONAL DESCRIPTION : 


; DISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY THE 
; OPERATOR THAT THE PRINTER WAS DROPPED. 


ee de ee 
ee 


DROPIT: 


50045$: 


50046$: 


: THIS SUBROUTINE IS USED TO DROP A BAD PRINTER FROM THE TEST 


LET STATUS\R2) := STATUS(R2) SET.BY #DROPED 
BIS #DROPED, STATUS (R2) 
vi CURCNT(R2) := #1 


ADD #6,S 
ot ERRTBL (RD) := #0 


Hagan L(R2) 
LET UUT := UUT - #1 
DEC " Gor 
IF UUT EQ #0 THEN 
TST UUT 


BNE 50045$ 
PRINTF #UUTEQO 
MOV a tart 27 (SP) 


MOV #1,-(SP 
MOV SP RO 
TRAP CS$PNTF 
ADD #4,SP 
DOCLN ; NOTHING TO TEST 
TRAP C$D 
ENDIF 
RTS PC 


FUNCTIONAL DESCRIPTION: 


THIS SUBROUTINE IS REQUIRED TO — PROPER PASS COUNT REPORTS 
IN A MULTI UNIT MODE OF OPERATION 


oe L$LUN := #0 
LSLUN 
aiLE LSLUN LT LSUNIT DO 
CMP LSLUN,L$UNIT 
BGE 5004 7$ 


GPHARD L$LUN, R3 
MOV L$LUN,RO 


SEQ 0038 


——— 





C 
I 


B 4 


ZLPLDO LP25, LP26, LPO7 TEST. MACRO M1113 30=DEC-80 09:36 PAGE 20-1 
70 CONTROL 


005740 

005742 
1472 005744 

005744 
1473 005750 

005750 

005752 
1474 005752 
1475 


1476 
1477 005754 


104442 
010003 


005237 
000765 
000207 


002074 


TRAP C$GPHRD 

MOV 

INC LSLUN 

ENDD p 

BR 50046$ 
-§0047$: 

RTS PC 

ENDMOD 


RO,R3 
LET L$LUN := LSLUN + 41 


SEQ 0039 


| CZLPLDO LP25, LP26, 
| INITIALIZATION SECTI 


1486 

1487 005754 

1488 005754 
005754 


012700 
104447 


103466 


012700 
104447 


103462 
004737 


012700 
104441 


112737 
012737 
000402 
005337 


023727 
002415 


012727 


1501 


001367 
000755 


1502 


1503 
104432 
001640 


LPO7 TEST 
ON 


90040 


000037 


005720 
000000 


000014 


000006 


003156 
003156 


000250 
002116 
177772 
177756 


C 4 
SEQ 0040 
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003160 


003156 


000001 


. SBTTL 


PRIMARILY 


INITIALIZATION SECTION 


p++ 
yTHE INITIALIZE ROUTINE IS EXECUTED AT THE BEGINNING 
USED FOR REQUESTING P=TABLE PARAMETERS. INFORMATION REQUESTED FROM 


OF EACH SUB=-PASS AND IS 


‘THE OPERATOR INCLUDE THE NUMBER OF UNITS UNDER TEST, DEVICE ADDRESSES, VECTORS, 
*CLOCK TYPE, AUTO OR MANUAL PRINTING SPEED MEASUREMENT, AND WHETHER A DAVFU 
OPTION IS INSTALLED IN THE SYSTEM. 


BGNMOD 
BGNINIT 


LSINIT:: 
RESET EXTERNAL BUS IF START EVENT FLAG 


IS SET 


OR POWER FAIL RESTART 


READEF #EF.START TEST START EF INDICATOR 
MOV #EF .START,RO 

TRAP CS$REFG 

aoevert ;BRANCH IF FROM START UP 
READEF #EF .RESTART NOW THE RESTARTFLAG 


MOV HEF .RESTART,RO 
TRAP CSREFG 
nee, IF EITHER START OR POWER FAIL RESTART 
:DO A BUS RESET 
R PC, FAKE : UPDATE PASS COUNT 
SETPRI #PRIOO ; PRIORITY ZERO 
MOV #PR1I00,RO 
TRAP C$SPRI 
LET OUTBUF :B= #14 
MOVB #14, OUTBUF 
OUTPUT A#OUTBUF , 41 
DECR WORK1 FROM #6 TO #1 BY #1 
MOV #6,WORK1 
BR 50050$ 
50051$: 
DEC WORK 1 
50050$: 
CMP WORK1 ,#1 
BLT 50052$ 
DELAY 250 
MOV #250, (PC)+ 
-WORD 0O 
MOV LSDLY,(PC)+ 
. WORD 
DEC -6(PC) 
BNE 74 
DEC -22(PC) 
BNE 720 
ENDDEC 
BR 50051$ 
50052$: 
EXIT INIT ; ELSE EXIT INIT CODE 
TRAP CSEXIT 
-WORD 110004-. 


“POWER UP RESTART OR START COMMAND ISSUED 


CZLPLDO LP2S, 


LP26, LPO? TEST 


INITIALIZATION SECTION 


1507 Pre leh 
1508 006142 


1509 006152 
66 
1510 006172 


06 
1511 006212 
1512 006212 
1513 006214 


1514 
1515 006216 


30 

006232 

1516 006236 
006236 


104433 


023727 
003420 


012746 
012746 


012746 

00 
062706 
104450 
103034 


012746 


005037 
005037 
005037 


104443 
000404 


002012 000020 


007156 
000001 


000004 
007241 
000001 


000004 


007374 
000001 
000004 
007467 
000001 


000004 


002274 
002336 
002342 


1$: 


50053$: 


dD 4 
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BRESET 

TRAP C$RESET 

IF LSUNIT GT #16. THEN 
$ #16 


CMP L$UNIT, 
BLE 0053$ 
PRINTF #NRGT16 
MOV #NRGT16,=(SP) 
MOV #1,-(S 
MOV SP,RO 
TRAP CSPNTF 
ADD #4 ,SP 
PRINTF #ANRGT17 


MOV #NRGT17,=(SP) 


SP,RO 
TRAP CSPNTF 
ADD #4 ,SP 
ENDIF 
TRAP CSMANI 
oe 2$ 
PRINTF #RESET1 
MOV AMRESET1,-(SP) 
MOV #1,-(SP) 
MOV SP RO 


ADD Pa 
PRINTF RESET 
MOV pea tL -(SP) 


. 
° 


RESET THE BUS 


CHECK FOR UNATTENDED MODE 
IF UNATTENDED BYPASS MANUAL INSTRUCTIONS 


a. ESPS 
SP.RO 
CSPNTF 
#4 ,SP 


‘WAIT FOR A ‘'CR'’ BEFORE GOING ON 


100$: 


oe FLAG 
Te ERRC 


10000$: — 


“REQUEST P=TABLE FOR PRINTERS UNDER TEST 


:= #0 
FLA 
OD := 40 
ERRCOD 


UuT 
READY ,FLAG, 100000, YES 
C$GMAN 


100000 


SEQ 0041 


E 4 


SEQ 0042 
| GZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 21-2 
INITIALIZATION SECTION 
1528 006306 2$: LET R1 := LSUNIT = #1 :MAXIMUM NUMBER OF UNITS 
| 006306 013701 002012 Mov LSUNIT,R1 
006312 005301 DEC RI 
1529 006314 INCR L$LUN FROM #0 TO Ri BY #1 
| 006314 005037 002074 CLR LSLUN 
006320 000402 BR 50054$ 
006322 50055$: 
| 006322 005237 002074 INC LSLUN 
006326 50054$: 
006326 023701 002074 CMP —LS$LUN,R1 
006332 003135 BGT 50056$ 
1530 006334 GPHARD LS$LUN,R3 ;REQUEST P=TABLE ADDRESS 
006334 013700 002074 Mov LSLUN,RO 
006340 104442 TRAP — C$GPHRD 
006342 010003 Mov _RO,R3 
1531 006344 BNCOMPLETE 3$ BRANCH IF DEVICE NOT PRESENT 
06344 103124 BCC $ 
1532 006346 LET R2 := LSLUN SHIFT 1 
06346 013702 002074 MOV LSLUN,R2 
1533 00082 006502 ASL R2 
1334 CLEAR ERROR COUNT, OUTPUT COUNT, GET DEVICE TYPE TO STATUS. 
1536 006354 IF 4(R3) EQ #0 THEN 
006354 005763 000004 TST 4(R3) 
006360 001004 BNE 50057$ 
1537 006362 LET STATUS(R2) := STATUS(R2) CLR.BY #FLAG26!FLAGO7 
006362 042762 003000 002512 BIC #FLAG26 ! FLAGO7, STATUS (R2) 
1538 006370 ELSE 
006370 000421 BR 50060$ 
006372 500578: 
1539 006372 IF 4(R3) EQ #1 THEN 
006372 026327 000004 000001 CMP G(R3) #1 
006400 001007 BNE 50061$ 
1540 006402 LET STATUS(R2) := STATUS(R2) SET.BY #FLAG26 
006402 052762 001000 002512 BIS #FLAG26, STATUS (R2) 
1541 006410 LET STATUS (R2) := STATUS(R2) CLR.BY #FLAGO7 
006410 042762 002000 002512 BIC #FLAGO7 , STATUS (R2) 
1542 006416 ELSE 
006416 000406 BR 500628 
006420 50061$: 
1543 006420 LET STATUS(R2) := STATUS(R2) CLR.BY #FLAGZ6 
006420 042762 001000 002512 BIC #F LAG26, STATUS (R2) - 
1544 006426 LET STATUS(R2) := STATUS(R2) SET.BY #FLAGO7 
006426 052762 002000 002512 BIS #FLAGO?, STATUS (R2) 
1545 ENDIF 
006434 50062$: 
1546 006434 ENDIF 
s5e7 Cons 50060$: 
1548 NOW GET THE BAND TYPE 64 OR 96 CHARACTER 
1550 006434 IF 6(R3) EQ #0 THEN 
006434 005763 000006 TST 6(R3) 
006440 001004 BNE 50063$ 
1551 006442 LET STATUS(R2) := STATUS(R2) CLR.3Y #FLAGI6 


006442 042762 010000 002512 BIC #FLAGI6, STATUS (R2) 


IZATION S$ 
006450 000403 
052762 
| 006460 005062 
012762 


005062 
005062 


ht 
N 
nN 


012362 


006506 016262 
006514 062762 


006522 012362 
006526 010237 


006546 062737 
006554 013762 
006562 012746 


006610 005237 
1579 006614 000403 


at . oud — wd od wd 
w . Ww NWN 
On AKAN 
WwW woo 
g38 8 
Wan 
ROS ~S 
ror fom 


LPLDO AT ata, A ays TEST 
ITIAL 


010000 


003114 
177777 
003052 
002652 


002356 


002356 
000002 


002416 


003154 
036220 
003154 


002342 


a 
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ELSE 
BR 50064$ 
50063$: 
002512 BIS #FLAGI6, STATUS (R2) 
ENDIF 
50064$: 


LET STATUS(R2) := STATUS(R2) SET.BY #FLAGI6 


LET ERRTBL(R2) := 40 
CLR ERRTBL (R2) 

LET CURCNT(R2) := &=1 

002752 MOV #-1,CURCNT (R2) 

LET DELCNT(R2) := #0 
CLR DELCNT(R2) 

LET REPCNT(R2) := #0 
CLR REPCNT(R2) 


“LOAD CSR ADDRESS INTO TABLE 


LET LPCSR(R2) := (R3)+ SET UP CSR ADDRESS FOR DEVICE 
MOV (R3)+,LPCSR(R2) 
LET LPBUF(R2) := LPCSR(R2) + #2 
002452 MOV LPCSR(R2) ,LPBUF (R2) 
002452 ADD #2, LPBUF (R2) 


“SET UP VECTOR ADDRESS INTO GIVEN TABLE 


LET LPVEC(R2) := (R3)+ 
MOV (R3)+,LPVEC(R2) 


SSET UP DEVICE INTERRUPT VECTOR INFORMATION 


LET WORK := R2 SHIFT 3 

MOV R2,WORK 

ASL WORK 

ASL WORK 

ASL WORK 

LET WORK WORK + #INTOO 
003154 ADD #INTOO, WORK 

LET LPINTR(R2) := WORK 
003012 MOV WORK, LPINTR(R2) 

SETVEC LPVEC(R2), LPINTR(R2), A#PRIOS 

MOV #PRIO4, -(SP) 

MOV LPINTR(R2) ,-(SP) 

MOV LPVEC(R2) ,-(SP) 

MOV #3,-(SP) 


TRAP C$SVEC 
ADD #10,SP 


* ADD ONE TO UNIT UNDER TEST COUNT 
LET UUT := UUT + #1 
INC UUT 
BR 4$ 
S INDICATE LSLUN NOT AVAILABLE FOR TESTING 
3$: LET STATUS(R2) := STATUS(R2) SET.BY #DROPED 


CZLPLDO LP25, LP26, LPO7 TEST 
INITIALIZATION SECTION 


at 
wal 
. e) 
WG 
RF 
Ww 
a 


1608 
1609 006770 

006770 
1610 006776 


052762 
000636 


012737 
012700 
104462 
010004 
103031 
012737 
010437 
017737 


012777 


016437 
012746 


005737 
001410 


012737 


012700 
104441 


104432 
001022 


012700 
104462 
010004 
103016 


012737 


040000 


000001 
000114 


000002 
002324 
173440 
000000 


000004 
000300 


000003 
000010 


002264 


000004 
000000 


000120 


000003 


G 4 
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002512 BIS ADROPED, STATUS (R2) 
ENDINC :GO BACK AND DO IT AGAIN 
BR 50055$ 
50056$: 
: SETUP TO HANDLE CLOCK’ INTERR 
IF AN L=CLOCK IS ON THE SYSTEM. THEN SETUP A NOOP INTERRUPT 


LET CLKTYP := : DEFAULT FOR NO CLOCK ON SYSTEM 
002322 MOV #1, crKTye 
CLOCK LR4 ; TEST FOR L=CLOCK 
MOV #°'L,RO 
TRAP C$CLCK 
MOV RO,R4S 
IFCOND CS THEN ; WE HAVE AN L=CLOCK 
BCC 50065$ 
LET CLKTYP := #2 
002322 MOV #2,CLKTYP 
LET CLOCKP := R4 
MOV R4,CLOCKP 
LET CLKCSR := @CLOCKP 
002326 MOV acLOCKP,CLKCSR 
LET @CLKCSR := #00 ; TRY TO DISABLE INTERRUPTS 
173432 MOV #00, @CLKCSR 
; SETUP THE NOOP HANDLER 
LET CLKVEC := 4(R4) 
002332 MOV 4(R4) ,CLKVEC 
SETVEC CLKVEC, #IGNORE , APRI06 
MOV #PRI06,- -(SP) 
MOV #IGNORE , -(SP) 
MOV CLKVEC, -(SP) 
MOV #3,-(SP) 
TRAP C$SVEC 
ADD #10,SP 
ENDIF 
50065$: 
: IF THE OPERATOR WANTS MANUAL SPEED TEST SET CLOCK TYPE = 4 
TST MANSPD 
BEQ CK1 
LET CLKTYP := &4 
002322 MOV #4,CLKTYP 
SETPRI APRIOO ; START TEST AT PRI 0 
MOV #PRI00,RO 
TRAP C$SPRI 
EXIT INIT 
TRAP eth 
.- WORD L10004-. 
> if a P=CLOCK IS ON THE SYSTEM UPGRADE CLOCK TYPE TO 3 
CK1: CLOCK P,RS 
MOV #'°P.R 
TRAP —-C$CLCK i 
V 0,R4 i 
IFCOND CS THEN ; WE HAVE A P=CLOCK 
50066 
LET CLKTYP := #3 
002322 MOV #3, CLKTYP 
LET CLOCKP 77 RS 


SEQ 0044 


H 4 


ese 


SEQ 0045 
PLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 21-5 
TIALIZATION SECTION 
006776 010437 (02324 MOV ___R4&,CLOCKP 
1611 007002 LET CLKCSR := @CLOCKP 
7002 017737 173316 002326 MOV __ @CLOCKP,CLKCSR 
1612 007010 LET CLKVEC := 4(R4) 
007010 016437 000004 002332 MOV _4(R4) ,CLKVEC 
1613 ;_TRY TO DISABLE THE P=CLOCK 
1614 007016 LET @CLKCSR := #00 
007016 012777 000000 173302 Mov #00, @CLKCSR 
1615 007024 END IF 
007024 50066$ : 
1616 ; IF NO CLOCKS ON THE SYSTEM NOTIFY THE OPERATOR 
1617 007024 IF CiKTYP EQ #1 THEN 
007024 023727 002322 000001 CMP CLKTYP, #1 
007032 001020 BNE 50067$ 
1618 007034 PRINTF #NOCLCK 
007034 012746 007640 Mov ——- #NOCLCK,, = (SP) 
007040 012746 000001 MoV = #1,=(SP 
007044 010600 MOV SP;RO 
607046 104417 TRAP —CSPNTF 
007050 062706 000004 DD 4,SP 
1619 007054 PRINTF #NOTIM 
007054 012746 007702 MOV —s- #NOTIM, ~(SP) 
007060 012746 000001 MOV = #1, =(SP) 
007064 010600 MOV _— SP. RO 
72066 104417 TRAP —CSPNTF 
007070 062706 000004 ADD #4, SP 
1620 007074 ENDIF 
007074 50067$: 
1621 007074 SETPRI #PRIOO 
007074 012700 000000 MOV — #PR00,RO 
007100 104441 TRAP —_—C$SPRI 
1622 007102 LET OUTBUF :B= #14 
007102 112737 000014 003160 MO #14, QUTBUF 
1623 007110 OUTPUT #OUTBUF #1 
1624 007152 EXIT INIT 
907152 104432 TRAP CSEXIT 
007154 000622 -WORD 10004-. 
1625 .NLIST BEX 
1627 007156 045 116 045. -«-NRGT16: .ASCIZ /%NZANUMBER OF LINE PRINTERS UNDER TEST EXCEEDS 16./ 
1628 007241 045 116 045 ~NRGT17: .ASCIZ /ZNZAONLY 16 WILL BE TESTED./ 
1629 0072 045 116 045 MRESET: :ASCIZ /%NXARESET LINE PRINTER(S), DO FORM FEED, AND PLACE ON LINE. %N/ 
1630 007374 045 116 045—s«RESET1: [ASCIZ /%NZARESET LINE PRINTER(S),SET FORMS LENGTH TO 11 INCHES, %N/ 
1651 007467 045 101 123 RESET2: [ASCIZ /%ASET VERTICAL DENSITY TO’6 LINES PER INCH,DO FORM FEED AND PLACE ON | INEZN/ 
1633 007603 104 105 120 READY: .ASCIZ /DEPRESS ‘'RETURN'' WHEN READY. / 
1634 007640 045 116 045 ~NOCLCK: -ASCIZ /%NXAHARDWARE CLOCK NOT AVAILABLE./ 
1635 007702 045 116 045 NOTIN: <ASCIZ /2NZAAUTO PRINTING SPEED MEASUREMENT CANNUT BE PERFORMED. / 
V 
1637 007774 000000 PLOC: .WORD 0 
1639 LIST BEX 
1640 007776 ENDINIT 
007776 110006 : 
007776 104411 TRAP CSINIT 
1641 
1642 SESRRAL SO TESS A SHEE TESSSHSR SS AR HAASE ASEAE RATA SASK REKSEREHES ORES RESET E SEER ES 


r 
& 
? 
7 


=® 
a 
Ww 
— 


$3SS.9 
8 


0 
1666 Hep 
1667 dyes 
1668 010054 


0 
1669 010056 


0 
1670 010062 


010016 
1665 010020 

0 0 
1671 


000002 


010346 
010446 


005004 
013703 
005703 
003417 
012746 


012604 
012603 
000207 


ZLPLDO 725, LP26, LPO7 TEST 
NITIALIZATION SECTION 


002012 


000200 


is 


I 4 
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; IGNORE AN INTERRUPT CATCHER FOR THE | =CLOCK 
. THAT IGNORES THE INTERRUPT. 
; USED FOR SYSTEMS WHERE CLOCK CANNOT BE TURNED OFF. 
IGNORE : ; NOOP 
RT] 
RESVEC FUNCTIONAL DESCRIPTION 


THIS SUBROUTINE WILL SETUP ALL UNITS VECTOR AREAS 
TO THE *NORMAL' INTERRUPT ROUTINES STARTING AT INTOO. 


RESVEC:: PUSH R3,R4 
MOV R3,-(SP) 
MOV R4,~(SP) 


LET RS := #0 


CLR RS 

LET R3 LSUNIT 
MOV LSUNIT R3 

WHILE R3 GT #0 DO 

50070$: 
TST R3 
BLE 50071$ 
be # ners LPINTR(R4), #PRI04 

MOV #PRI04,~-( 
MOV (PINTRIRA), et csp) 


MOV LPVEC (R4) ,=(SP) 


LET R4 := R4 + #2 


ADD 2. 
LET R3 := R3 - #1 

DEC R 

ENDDO 
BR 50070$ 

59071$: 

POP R4,R3 
MOV (SP)+,R4 
MOV (SP) +,R3 

RTS PC 


SEQ 0046 


J 4 


CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 22 
CLEANUP CODING SECTION 


SEQ 0047 


1673 .SBTTL CLEANUP CODING SECTION 
1674 010064 STARS 
LL URAAA AAA EAE EAA AAA EAA A EERE REAR EERE ERE EERRE RAE R ERS 
1675 i++ 
1676 THE PURPOSE OF THE CLEANUP SECTION IS TO CLEANUP ALL PRINTERS UNDER TEST 
1677 AND RETEST ANY UNITS WHICH HAVE BEEN DROPPED FROM TESTING TO INSURE THAT 
1678 :THEY HAVE NOT COME BACK ON LINE. IF THE DEVICE HAS COME BACK ON LINE 
1679 TESTING WILL BE RESTARTED ON THE DEVICE. THIS INSURES THAT 
1680 IN THE EVENT A PAPER OUT OCCURRED AND THE OPERATOR HAS PUT ADDITIONAL PAPER 
1681 > INTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOES NOT 
HAVE TO BE DONE AGAIN IN ORDER TO GET THE DEVICE ACTIVE. 
1684 010064 STARS 
fs LUAAAAAAAARARAAARAEREEEEAEERAAAERRARARAERARARAREREAAERARAAAAAREEES 
1685 010064 BGNCLN 
010064 LSCLEAN:: 
1686 010064 SETPRI #PRIO7 
010064 012700 000340 MOV #PRI07,RO 
C10070 104441 TRAP C$SPRI 
1687 010072 BRESET 
1688 010072 104433 TRAP CSRESET 
1689 010074 CLEAN: LET R1 := LSUNIT - #1 ;NUMBER OF UNITS=~1 
010074 013701 002012 MOV LSUNIT,R1 
010100 005301 DEC R1 
1690 010102 INCR L$SLUN FROM #0 TO R1 BY #1 
010102 005037 002074 CLR LSLUN 
010106 000402 BR 50072$ 
010110 50073$: 
010110 005237 002074 INC LSLUN 
010114 50072$: 
010114 023701 002074 CMP L$LUN,R1 
010120 003020 BGT 50074$ 
1691 ; DISABLE ALL INTERRUPTS, SELECT ALL LINES 
1692 : ZERO ALL ERROR COUNTS 
1693 010122 LET R2 := L$LUN SHIFT 1 
010122 013702 002074 MOV LSLUN,R2 
010126 006302 ASL R2 
1694 : CLEAR ALL BITS IN STATUS EXCEPT DEVICE TYPE 
1695 010130 LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR!DROPED! ACTIVE !LOBYTE 
C10130 042762 160377 002512 BIC MERROR !DROPED!ACTIVE !LOBYTE,.STATUS(R2) 
1696 010136 LET CURCNT(R2) := #-1 
010136 012762 177777 002752 MOV #-1, CURCNT(R2) 
1697 010144 LET ERRTBL(R2) := 40 
010144 005062 003114 CLR ERRTBL (R2) 
1698 010150 LET DELCNT(R2) := #0 
010150 005062 003052 CLR DELCNT(R2) 
1699 010154 LET REPCNT(R2) := #0 
010154 005062 002652 CLR REPCNT(R2) 
1700 010160 ENDINC 
010160 000753 BR 50073$ 
010162 50074$: 
1701 010162 004737 %10002 JSR PC ,RESVEC ; RESET THE VECTORS 
1702 010166 IF CLKTYP EQ #3 THEN 
010166 023727 002322 000003 CMP CLKTYP,#3 
010174 001006 BNE 50075$ 
1703 010176 CLRVEC @CLKVEC 


 CZLPLDO LP25, LP26, LPO7 TEST 


| CLEANUP CODING SECTION 
010176 017700 
010202 104436 

1704 010204 
010204 012777 

1705 010212 


1706 010212 
0 023727 


0 001013 
1707 010222 
010222 012746 


0 
1708 010250 
1709 BI OSep 


0 
1710 probes 

010256 104412 
1711 
1712 010260 


ee eee eee 


172130 


000000 
002322 


000300 
010000 
002332 

00003 


K 4 


MACRO M1113 30=DEC-80 09:36 PAGE 22-1 


172114 


000002 


50075$: 


50076$: 


ENDCLN 


L10005: 


ENDMOD 


MOV @CLKVEC,RO 
TRAP CS$CVEC 

LET @CLKCSR := #00 
MOV #00, @CLKCSR 
ENDIF 
IF CLKTYP RT Ay THEN 
CMP CLKTYP,#2 
BNE 500768 

SETVEC CLKVEC,#IGNORE ,#PRI06 
MOV #PR106,-(SP) 
MOV #IGNORE ,~ (SP) 
MOV CLKVEC, 35 (SP? 
MOV #3,-(S 
TRAP CSéve 
ADD #10,SP 
ENDIF 
SETPRI #PRI00 
MOV #PR100,RO 
TRAP C$SPRI 
TRAP CSCLEAN 


SEQ 0048 


L 4 
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SEQ 0049 
/ CZLPLDO LP25, LP26, LPO7 TEST 
| INTERFACE LOGIC 


| 





a, .SBITL INTERFACE LOGIC 
zig 010260 BGNMOD 
++ 

1718 :THIS TEST VERIFIES THE OPERATION OF THE INTERFACE LOGIC. TESTS ARE . 
1719 :PERFORMED FOR PRINTER ERROR, PRINTER READY, AND CLEARING PRINTER READY 
1720 BY LOADING A CHARACTER INTO THE OUTPUT BUFFER. ALSO IT IS VERIFIED 
1721 THAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT THE SAME PRIORITY LEVEL 
1722 ; AS THE PROCESSOR, BUT WILL INTERRUPT IF THE PROCESSOR IS AT A LOWER 
ct, PRIORITY LEVEL. THE PRINTER IS AT PRIORITY LEVEL 4. 
1725 é 
1726 ' Sonagl 
1727 010260 BGNTST 1 

010260 Tis: 
1728 010260 LET R1 := LSUNIT - 41 sMAX NUMBER OF UNITS ON SYSTEM 

010260 013701 002012 MOV LSUNIT,R1 
1729 010264 005301 DEC R1 
1730 z:HARD CODED INCREMEMNT LOOP 
fe 3 : INCR LUNIT FROM #0 TO R1 BY #1 ; START LOOP 
1733 010266 005037 002514 CLR LUNIT ;UNIT TO 0 
1734 010272 000402 BR T1C ;DO COMPARE 
1735 010274 TIA: 
1736 010274 005237 002314 INC LUNIT ;UPDATE UNIT NUMBER 
1737 010300 TIC: 
1738 010300 023701 002314 CMP LUNIT,R1 :DO COMPARISON OF UNIT NUMBER 
1739 010304 003402 BLE 1$ sONTO NEXT UNIT 
1740 010306 000137 011052 JMP T1B :EXIT LOOP 
1741 010312 1$: 
1742 010312 LET R2 := LUNIT SHIFT 1 

010312 013702 002314 MOV LUNIT,R2 

010316 006302 ASL R2 
1743 010320 IF #BITIS SETIN @LPCSR(R2) THEN 

010320 032772 100000 002356 BIT #B1T15,@LPCSR(R2) 

10326 001416 BEQ 50077$ 
1744 010330 LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 
10330 052762 100000 002512 BIS #ERROR, STATUS (Re) 

1745 010336 LET ERRTBL(R2) := ERRTBL(R2) + #1 

010336 005262 003114 INC ERRTBL (R2) 
1746 010342 LET L$LUN := LUNIT 

010342 013737 002314 002074 MOV LUNIT,L$L 
1747 010350 ERRHRD 1,CSRERR sERROR BIT WAS SET. SAY SO 

010350 104456 TRAP CSERHRD 

010352 000001 -WORD 1 

010354 003406 -WORD CSRERR 

010356 000000 4 . WORD 
1748 010360 . LET @LPCSR(R2) := #0 

010360 005072 002356 CLR @LPCSR(R2) 
1749 010364 ENDIF 

010364 50077$: 
1750 ; TIME DELAY 
1751 : IF NOT READY ALLOW 3 SECONDS TO COME UP 
1752 010364 IF #BIT7 NOTSETIN @LPCSR(R2) THEN 

010364 032772 000200 002356 BIT #BIT7,aLPCSR(R2) 

010372 001027 : BNE 50100$ 





| CZLPLDO LP25, LP26, LPO? TEST 
INTERFACE LOGIC 


| 
| 
| 1753 010374 
| 010374 
| 


03 012737 900014 
010402 000402 
010404 


Hh ogy 005337 003156 

10 023727 003156 

18 002415 

010420 012727 000250 
000000 

010426 013727 002116 
000000 

010434 005367 177772 

177756 


1754 


010452 032772 000200 
010460 001014 
1761 010462 


010462 052762 100000 
1762 010470 

010470 013737 002314 
1763 010476 

010476 005262 003114 
1764 010502 

010502 104456 

010504 000002 

010506 003424 

010510 000000 
1765 010512 

010512 
1766 
1767 


1768 

1769 010512 
010512 012772 000012 

1770 010520 
010520 


032772 000200 
001416 


052762 100000 
005262 003114 
013737 002374 
104456 


010526 

1771 010550 
1772 010536 
010536 

1773 010542 
010542 

1774 .010550 
"010550 
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DECR WORK1 FROM #12. TO #1 BY #1 
V 2.,WORK?1 


003156 MO 
8R 50101$ 
50102$: 
EC WORK 1 
50101$: 
000001 CMP WORK1 ,#1 
BLT 50103$ 
DELAY 250 
MOV #250, (PC) + 
-WORD 0 
MOV LSDLY,(PC)+ 
. WORD 
DEC -6(PC) 
- BNE 74 
+ - DEC -22(PC) 
BNE .-20 
ENDDEC 
BR 50102$ 
50103$: 
ENDIF 
50100$: 
sNOW TEST FOR PRINTER READY 
IF = NOTSETIN @LPCSR(R2) THEN 
002356 BIT #B1IT07,aLPCSR(R2) 
BNE 50104$ 
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 
002512 BIS #ERROR, STATUS (R2) 
LET L$LUN := jLUNIT 
002074 MOV LUNIT,LS$LUN 
LET ERRTBL (Re) := ERRTBL(R2) + #1 
INC ERRTBL (R2) 
ERRHRD 2, ADYERR :REPORT AN ERROR 
TRAP C$ERHRD 
-WORD 2 
= WORD RDYERR 
ENDIF 


501048: 


— 


TEST FOR THE READY BIT 


“ INSURE LOADING CHARACTER CAUSES PRINTER READY TO GO AWAY 


LET @LPBUF(R2) := #12 
002452 MOV #12, @LPBUF (R2) 

IF w+ ad SETIN @LPCSR(R2) THEN 
002356 BIT rt He ,@LPCSR(R2) 


BEQ 5010 
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 
MERROR , STATUS (R2) 


002512 BIS 
ber ERRTBL (R2) ds Sarre ne? + #1 


002074 
REPORT AN ERROR 
TRAP CSERHRD 


SEQ 0050 


| eee: ae 


CZ2LPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 23-2 
INTERFACE LOGIC : 


SEQ 0051 


| 010552 000003 .WORD 3 
010554 011332 .WORD  ERR11 
| 010556 000000 -WORD 0 
1775 010560 LET @LPCSR(R2) := #0 
1 005072 002356 CLR @LPCSR(R2) 
1776 010564 ENDIF 
iat 010564 501058: 
1778 ‘VERIFY THAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT A PRIORITY LEVEL 
i da ; THE SAME AS THE CPU 
1781 010564 SETPRI /fPR104 =CPU TO PRIORITY 4 
010564 012700 000200 #PR104, RO 
010570 104441 TRAP PRI 
1782 010572 : SETVEC LPVEC (Ro) #INTERR,APRI 04 :LP VECTOR SET UP 
010572 012746 000200 MOV #PRIOG,-(SP) 
010576 012746 011214 MOV #INTERR,-(SP) 
010602 016246 002416 MOV LPVEC (Re), =(SP) 
610606 012746 000003 MOV #3,-(SP 
010612 104437 TRAP C$SVEC 
010614 062706 000010 ADD #10,SP 
1783 010620 LET @LPCSR(R2) := @LPCSR(R2) SET.BY #100 — ; INTERRUPT ENABLE 
010620 052772 000100 002356 BIS #100, @LPCSR(R2) 
1784 010626 DECR WORK1 FROM #12 TO #1 BY #1 
010626 012737 000012 003156 MOV #12,WORK1 
010634 000402 BR 50106$ 
010636 501078: 
010636 005337 003156 DEC WORK1 
010642 501068: 
010642 023727 003156 000001 CMP WORK1,#1 
010650 002415 BLT 50110$ 
1785 010652 DELAY 250. ; ALLOW 3 SEC FOR DELAY 
010652 012727 000372 MOV #250. , (PC)+ 
010656 000000 . WORD 
010660 013727 002116 MOV LSDLY, (PC)+ 
010664 000000 .WORD 0 
010666 005367 177772 DEC -6(PC) 
010672 001375 BNE - 
010674 005367 177756 DEC ~22(PC) 
010700 001367 BNE .-20 
1786 010702 ENDDEC | 
010702 000755 BR 50107$ 
ais 010704 50110$: 
1788 ‘NOW TEST THAT THE PRINTER WILL INTERRUPT IF THE CPU PRIORITY IS LOWER THAN 
1789 >THE PRINTER PRIORITY 
1791 010704 LET aL PCSR(R2) :=@LPCSR(R2) CLR.BY #100  ;CLEAR INTERRUPT ENABLE 


010720 012746 000200 
010724 012746 011244 MOV PINTHDL, ~(SP) 
010730 016246 002416 MOV LPVEC (Re). -(SP) is sik Nal 


010704 042772 000100 002356 B #100, @LPCSR(R2) 
1792 010712 SETPRI #PRI03 a 3CPU TO PRIORITY 3 
010712 012700 000140 MOV #PRIO3:RO 
010716 104441 TRAP __C$SPRI 
1793 010720 SETVEC LPVEC (R2) -INTHDL .APR1O4 
MOV 
010734 012746 000003 MOV. = «#3, =(SP 





CZLPLDO LP25, LP26, LPO7 TEST 


| INTERFACE LOGIC 


1796 
1797 
1798 


Se 


lelelelelelelelelelelela) 
elelelelolelele) 
Mronrnno—]22— 
ALMOARKOO 


° 
SS0 
EES 


—y 
—_ 
oo 
Dab abad ad Babad aad ad ad ad ad ad 


me ee ae ek i as do et 


RE 
ror 


SER eE 
ABRUAAKMA 


NMonon--- ee 


me kk a a td ot od = 3 3 = ss 
REKSRRE 


— 

Co 

— 

ins) 
DOOCSCOCDODOCOOOCCCOCCOSOO 
et et a ek ae ed ed ed a aed ad ed ed 


Mononrory 


ad acd aed eed 
moOOoOo 


815 
816 
817 
818 
819 

820 011214 


104437 
062706 


052772 


013737 
104456 
4 


00000 
011477 
000000 


012772 
042762 
005062 


000137 
004737 


012700 
104441 
112737 
032772 
001001 
000773 


104432 
000334 


000010 
000100 
000030 
002116 
177772 
177756 


003114 
002314 


000000 
160000 
003052 


010274 
010002 


000000 


000014 


000200 
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TRAP C$SVEC 


ADD #10,S5P 
LET @LPCSR(R2) := @LPCSR(R2) SET.BY #100 =; INTERRUPT ENABLE 
002355 BIS #100, aLPCSR‘(R2) 
DELAY 30 : ALLOW 3 SEC DELAY 
MOV #30, (PC)+ 
. WORD 
MOV LSDLY, (PC)+ 
.WORD 0 
DEC -6(PC) 
BNE 4 
DEC ~22(PC) 
BNE .-20 
LET ERRTBL(R2) := ERRTBL(R2) + #1 
INC ERRTBL (R2) 
LET LSLUN := LUNI 
002074 MOV LUNIT,L$LUN 
ERRHRD 4,ERR13 
TRAP C$SERHRD 
.WORD 4 
“WORD  ERR13 
“WORD 0 
END2: LET @lPCSR(R2) := #00 : CLEAR THE LPCSR 
002356 MOV #00, @LPCSR(R2) 
LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR!DROPED! ACTIVE 
002512 BIC #ERROR ! DROPED ! ACTIVE, STATUS (Re) 
LET DELCNT(R2) := #0 
CLR DEL CNT (R2) 
‘END OF HARD CODED INCREMENT LOOP 
ZENDINC 
JMP TIA sUPDATE UNIT # 
T1B: JSR PC ,RESVEC : RESET STANDARD VECTORS 
SETPRI #PRIOO 
MOV #PRIO0,RO 
TRAP _— C$SPRI 
OUTPUT MINTFAC, #47. 
LET OUTBUF :B= #14 
003160 MOVB  #14,QUTBUF 
OUTPUT #OUTBUF , #1 
ae WHILE #BIT7 NOTSETIN @LPCSR(R2) DO :WAIT FOR READY 
002356 BIT #BIT7,ALPCSR(R2) 
BNE 50112$ 
ENDDO 
BR 501118 
501128: 
EXIT TST sEXIT THE TEST 
TRAP  C$EXIT 
.WORD 110006-. 


S INTERRUPT HANDLER TO SERVICE FAULTY INTERRUPT FROM LP_INTERFACE. 
THIS ROUTINE IS ENTERED ONLY WHEN THE LP INTERRUPTS AT THE SAME LEVEL AS 
7 THE CPU AND IS CONSIDERED AN ERROR. 


BGNSRV 


SEQ 0052 


-——_ --—— --—_ -—-, 


f 
c 5 
| SEQ 0053 


CZLPLDO LP25, LP26, LPO? TEST MACRO M1113 30=DEC-80 09:36 PAGE 23-4 
| INTERFACE LOGIC 
1821 011214 INTERR: LET ERRTBL(R2) := ERRTBL(R2) + #1 
1214 005262 003114 INC ERRTBL (R2) 
1822 011220 LET L$LUN := LUNIT 
| 011550 013737 002314 002074 MOV _LUNIT.L$LUN 
1823 011226 ERRHRD 5,ERR12 
| 011226 104456 TRAP —- CSERHRD 
011230 000005 .WORD 5 
011232 011406 “WORD ERR12 
011234 000000 “WORD 0 
1824 011236 LET (SP) := #END2 
011236 012716 011026 MOV #END2, (SP) 
1825 011242 ENDSRV 
011242 L10007: 
iets 011242 000002 RTI 
H+ 344 : INTERRUPT HANDLER FOR EXPECTED INTERRUPT 
1829 011244 BGNSRV 
1831 011244 INTHDL: LET (SP) := #END2 
011244 012716 011026 MOV #END2, (SP) 
1832 011250 ENDSRV 
011250 L10010: 
011250 000002 RTI 
1833 : 
1834 “NLIST BEX 
1835 011252 111 116 124 INTFAC: .ASCIZ /INTERFACE LOGIC TEST 1 ---= TEST COMPLETE/<12><12> 
1832 TERROR MESSAGES ASSOCIATED WITH THIS TEST 
1839 011332 114 117 101. ERR11: .ASCIZ /LOADING PRINTER BUFFER DOES NOT CLEAR READY/ 
1840 011406 120 122 111 ERR12:  .ASCIZ /PRINTER INTERRUPTED AT SAME LEVEL AS THE PROCESSOR/ 
1841 011471 120 122 111 ERR13: "ASCIZ /PRINTER DID NOT INTERRUPT AT CPU PRIORITY 3/ 
. VEN 
1843 011546 ENDTST 
011546 L10006: 
011546 104401 TRAP C$ETST 
1844 LIST BEX 
1845 011550 NDMOD 
1846 


-—--— -— +, 


D 5 


SEQ 0054 
CZLPLDO LP25, LP26, LPO7 ty MACRO M1113 30=DEC-80 09:36 PAGE 24 
READY LINE INTERLOCKS TEST 2 
i .SRBTTL READY LINE INTERLCCKS TEST 2 
uF 01155% BGNMOD 
1852 “THIS TEST CHECKS THE OPERATION OF THE 
1853 *PRINTER READY INTERLOCK SWITCHES. 
1854 >MANUAL INTERVENTION IS USED TO 
1855 [OPEN THE INTERLOCKS 70 PRODUCE FAULTS 
1856 IN THE PRINTER AFTER WHICH THE RESULTANT ERROR 
1857 ; INDICATION IS VERIFIED. 
1858 :- 
1859 
1860 011550 BGNTST 2 
011550 Téss 
1861 DETERMINE IF MANUAL INTERVENTION IS ALLOWED 
1862 011550 —* 
011550 104450 CSMAN! 
1863 011552 BCOMPLETE 11$ 
C11552 103402 BCS 11$ 
1864 011554 EXIT TST 
011554 104432 TRAP CSEXIT 
011556 002762 .~ WORD L10011- 
1865 sEXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED 
1866 011560 11$: IF INHINT EQ #0 THEN 
011560 005737 002262 TST INHINT 
011564 001002 BNE 50113$ 
1867 011566 EXIT TST 
011566 104432 TRAP CSEXIT 
case 011570 002750 .WORD 110011-. 
1869 011572 ENDIF 
011572 50113$: 
1870 011572 LET FLAG := #0 
011572 005037 002274 CLR LAG 
1871 011576 LET R1 := LSUNIT - #1 
011576 013701 002012 MOV LSUNIT,R1 
1872 011602 005301 DEC R1 
1873 CHECK FOR ERROR IN EACH PRINTER UNDER TEST 
1874 011604 INCR LUNIT = #0 TO R1 BY 41 
01 005037 002314 CLR UNIT 
01 000402 BR EON 14S 
01 50115$: 
01 005237 002314 INC LUNIT 
01 50114$: 
01 023701 002314 CMP LUNIT,R1 
01 003020 BGT 50116$ 
01 LET R2 := LUNIT SHIFT 1 
01 013702 002314 MOV LUNIT, 
01 006302 ASL R2 
01 IF #B1IT15 SETIN @LPCSR(R2) THEN 
01 032772 100000 BIT #B1T15, @LPCSR(R2) 
01 001410 BEQ J 
01 LET ERRTBL(R2) := ERRTBL(R2) + #1 
01 005262 003114 INC ERRTBL (R2) 
01 ERRHRD 6, CSRERR 
01 104456 TRAP C$ERHRD 


- CZLPLDO LP25, LP26, LPO7 TEST 
READY LINE INTERLOCKS 2 


011650 


= 
NNNNNNNN 
¥ WW NOR 
sOOaoOoCN 


PPP PP le 


— 
wlolelsielelolololololololaleoleloleloja) 
SRR W 


kt kk a a ad od a ot a a a 
ARR KMWOMN 


NN 
sft 


1894 011746 


1898 012010 


000006 
003406 
000000 
005072 


000753 


005037 
000402 


005237 


023701 
003021 


013702 
006302 
013737 


032772 
001006 


005262 
104456 


000000 


000752 


005037 
005037 
000405 
005237 


013702 
006302 


023701 


TEST 


002356 


002314 


002314 
002314 


002314 


062314 
000200 


003114 


002340 
002314 


002314 
002314 


002314 
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002074 
002356 


«WORD 6 
«WORD CSRERR 


. WORD 
LET @LPCSR(R2) := #0 
CLR @LPCSR(R2) 


ENDIF 
501178: 
END INC 
BR 50115$ 
50116$ 


CHECK. FOR READY IN EACH PRINTER UNDER TEST 
pen See Tt in - TO R1 BY 41 
L 


ar LON 208 
50121$: 
NC LUNIT 
50120$: 
CMP LUNIT,R1 
BGT 50122$ 
LET R2 := LUNIT SHIFT 1 
MOV LUNIT,R2 
ASL R2 
LET L$LUN := LUNIT 
MOV LUNIT,L$LUN 
IF we1T0? NOTSETIN @LPCSR(R2) THEN 
BIT #BITO7,aLPCSR(R2) 
BNE 50123$ 
LET ERRTBL(R2) := ERRTBL(R2) + #1 
INC ERRTBL (R2) 
ERRHRD 7, RDYERR 
ee ittates 
WORD RDYERR 
WORD 0 
DIF 
50123$: 
END INC 
BR 50121$ 
50122$: 


> PRINT TEST NAME 

OUTPUT #INTLK,429. 
: VERIFY OPERATION OF PAPER LOW INTERLOCK SWITCH 
SHARD CODED INCREMENT LOOP 


: LET ERRFLG := #0 


ERRFLG 
CLR tina f 
BR 1$ 
23: 
INC LUNIT 
LET R2 := LUNIT SHIFT 1 
MOV LUNIT,R 
ASL R2 
1$: 


CMP LUNIT,R1 


SEQ 0055 


— CZLPLDO LP25, LP26, LPO7 TEST 


READY LINE INTERLOCKS 


1906 012040 003402 
1907 012042 000137 


046 005037 
012052 013746 


0 
1911 012076 


012076 012746 
012102 012746 
012106 010600 
012110 104417 
012112 062706 
1912 012116 
012116 104443 
012120 000404 
012122 002274 
012124 000130 
012126 007603 
012130 10000 
012132 
1913 012132 
012132 012737 
1914 012140 
012140 005037 
1915 012144 
012144 
1916 012144 
1917 012206 
012206 005337 
1918 012212 
012212 005737 


012224 001747 
012226 005737 
012232 001011 

12234 104456 
012236 000010 
012240 003446 
012242 000000 
012244 005262 
012250 000137 


12254 000402 


TEST 2 


012402 


002274 
002314 
013416 
000002 
000006 
013466 
000001 


000004 


000310 
002340 


002276 
002276 
002340 


002340 


003114 
012262 
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002276 


¥ 


3$: 


10000$: 


501248: 


50125$: 


501268: 


BLE 
MP 


F 


3$ 
4$ 
LET Sete Ot #0 


CLR LAG 
PRINTF #PAPRSW,LUNIT 


MOV APAPRSW,=(SP) 
MOV #2,-(S 
MOV SP RO 


ADD #6,SP 
PRINTF #PAPSW1 


MOV A#PAPSW1 ,= (SP) 
MOV #1,-(S 
MOV SP ,RO 

TRAP CSPNTF 

ADD #4 ,SP 

GMANIL READY, FLAG, 100000, YES 
TRAP C$GMAN 
BR 10000$ 

WORD FLAG 

WORD T$CODE 

WORD 


° READY 

-WORD 100000 

LET LINCNT := #200. 
MOV #200. ,LINCNT 
LET ERRFLG := #0 


CLR ERRFLG 
REPEAT 


OUTPUI #PAPTST 415. ,45$,LUNIT 
LET LINCNT := LINCNT = #1 


DEC LINCNT 


BEQ 50125$ 
TST ERRFLG 
BEQ 50124$ 


IF ERRFLG EQ #0 THEN 
TST ERRFLG 


50126$ 
ERRHRD 8, PAPSW! 
ne CSERHRD 


-wORD 8 
-WORD PAPSWI 
WOR 


D 
LET ERRTBL(R2) := ERRTBL(R2) + #1 


INC ERRTBL(R2) 
INLINE <JMP 

JMP 11002$ 

ELSE 

BR 50127$ 


LET ERRFLG := #0 


5 


NCN 
UNTIL LINCNT EQ #0 OR ERRFLG NE #0 
LINCNT 


z; ALLOW FOR ABOUT 3 PAGES OF PAPER 


SEQ 0056 


G 5 


SEQ 0057 
 CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 26-3 
READY LINE INTERLOCKS TEST 2 
012256 005037 0602340 CLR ERRFLG 
1925 012262 ENDIF 
12262 501278: 
1926 912262 11002$: PRINTF #PAPRDY,LUNIT 
012262 013746 002314 MOV LUNIT,=(SP) 
012266 012746 013535 MOV #PAPRDY ,=(SP) 
012272 012746 000002 MOV #2,-(SP) 
012276 010600 MOV SP.RO 
012300 104417 TRAP ss CSPNTF 
012302 062706 000006 ADD #6,SP 
1927 012306 LET FLAG. := #0 
012806 005037 002274 CLR LAG 
1928 012312 GMANIL READY, FLAG, 100000, YES 
012312 104443 TRAP C$GMAN 
012314 000404 BR 10001$ 
012316 002274 WORD FLAG 
012320 000130 “wORD  TS$CODE 
012322 007603 ; “WORD READY 
612324 100000 “WORD 100000 
012326 10001$: 
1929 012326 LET R2 := LUNIT SHIFT 1 
012326 013702 002314 MOV LUNIT,R2 
012332 006302 ASL R2 
1930 012334 LET @LPCSR(R2) := #0 ; RESET THE LP CSR 
012334 005072 002356 CLR @LPCSR(R2) 
1931 012340 000137 012022 JMP 2% 
1932 zs EXPECTED ERROR HANDLER 
1933 ‘JUST SET EXPECTED ERROR INDICATOR. 
1935 012344 és: LET ERRFLG := #1 
012344 012737 000001 002340 MOV #1, ERRFLG 
1936 012352 LET ERRCOD := #0 
012352 005037 002336 CLR ERRCOD 
1937 012356 LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR!ACTIVE 
012356 042762 120000 002512 BIC MERROR ! ACTIVE, STATUS (Re) 
1938 012364 LET CURCNT(R2) := #0; CLEAN UP THE DRIVER PARAMETERS 
005062 002752 CLR CURCNT (R2) 
1939 012370 LET CURADD(R2) := #0 
012370 005062 002552 CLR CURADD (R2) 
1940 012374 LET REPCNT(R2) := #0 
012374 005062 002652 CLR REPCNT (R2) 
1941 012400 000207 RTS PC Z AND RETURN + 
1942 : VERIFY OPERATION OF HAMMER BANK INTERLOCK SWITCH ON LP25,26 -OR= VERIFY BAND GATE LATCH ON 
1943 012402 4$: INCR LUNIT fam #0 TO R1 BY #1 
012402 005037 002314 CLR 
012406 000402 BR OT SOS 
012410 50131$: 
012410 005237 902314 INC LUNIT 
012414 501308: 
012414 023701 002314 CMP LUNIT,R1 
012420 003137 BGT 50132$ 
1944 012422 | LET R2 := LUNIT SHIFT 1 
012422 013702 002314 MOV LUNIT,R2 
012426 006302 ASL R2 
1945 012430 LET L$LUN := LUNIT 


012430 013737 002314 002074 MOV LUNIT-LSLUN 
1946 012436 LET FLAG := #0 


 CZLPLDO LP25, LP26, LPO7 rest 
READY LINE INTERLOCKS T 2 


1947 


SS eee 


0 
1948 


0 
1949 
0 


0 
1950 
0 


0 
1951 
0 


0 
1952 

0 
1953 

0 


0 
1954 
C 


0 
1955 
0 


0 
1956 
0 


012436 
A 


012640 


005037 
032762 


013746 
012746 
012746 
010600 
104417 
062706 


000422 


013746 


100000 


032772 
001421 


013746 


TES 

002274 
002000 
001000 


002314 
014255 
000002 
000006 
002314 


013644 
000002 


000006 
013721 
000001 


000004 


100000 


002314 
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002512 
002512 


002356 


501338: 


50134$: 


10002$: 


100038: — 


IT LAGO7,STATUS(R2) 
BEQ 30 3$ 
BIT #FLAG26, STATUS (R2) 
BNE 50133$ 
PRINTF #BGTLCH,LUNIT 
MOV LUNIT,=(SP) 
MOV ABSTLCH,-(SP) 
MOV #2,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6,SP 
ELSE 
BR 50134$ 
PRINTF #HAMRSW,LUNIT 
MOV LUNIT,-(SP) 
MOV AMHAMRSW , - (SP) 
MOV #2,-(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD #6,SP 
PRINTF #HAMSW1 
MOV #HAMSW1 , = (SP) 
MOV #1,-(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD #4 ,SP 
ENDIF 
GMANIL READY, FLAG, 100000, YES 
TRAP C$GMAN 
BR 10002$ 
«WORD FLAG 
-WORD T$CODE 
«WORD READY 
-WORD 100000 


art #B1T15 SETIN @LPCSR(R2) THEN 


BEQ 


LR LAG 
iF aFLAGO? SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2) THEN 


#B1T15,@LPCSR(R2) 
501558 


PRINTF #HAMRDY,LUNIT 

LUNIT,-(SP) 

MHAMRDY , ~ (SP) 

#2,-(SP) 

SP RO 

C$PNTF 

#6,SP 

GMANIL READY, FLAG, 
GMAN 


SEQ 0058 


— CZLPLDO LP25, LP26, LPO7 TEST 
READY LINE INTERLOCKS 


1957 012640 
012640 


012642 
1958 012642 
012642 
1959 Bi Stee 


| 4960 
| 1967 012654 


012720 
1969 012720 


0 
1970 Bh Loos 


0 
1971 B\Svet 
1972 OISoeS 


000426 


005262 
013737 
032762 
001411 
032762 
001005 


104456 


000634 


005037 
000402 


005237 


023701 
003162 


013702 
006302 
005037 
032762 


013746 
012746 
012746 


TEST 


003114 
002314 


002000 
001000 


002314 


002314 
002314 


002314 


002274 
002000 
001000 
002314 


014355 
000002 


12752 
012760 
012762 
012770 3 
1973 012772 
012772 7 
012776 
013002 
013006 010600 


I 5 


SEQ 0059 
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ELSE 
BR 501368 
50135$: 
LET ERRTBL(R2) := ERRTBL(R2) + #1 
INC ERRTBL (R2) 
LET L$LUN := LUNIT 
002074 MOV LUNIT,LS$LUN 
IF #FLAGO7 SETIN STATUS(R2) AND &4FLAG26 NOTSETIN STATUS(R2) THEN 
002512 BIT #FLAGO7,STATUS(R2) 
BEQ 50137$ 
002512 BIT #FLAG26, STATUS (R2) 
BNE 50137$ 
ERRHRD 17,BGTSW! 
TRAP CSERHRD 
. WORD 17 
.~ WORD BGTSwI! 
.~ WORD 0 
ELSE 
BR 501408 
50137$: 
ERRHRD 9,BNKSW] 
TRAP CSERHRD 
. WORD SG 
.~WORD BNK Sw! 
WORD 0 
ENDIF 
50140$: 
ENDIF 
50136$: 
END INC 
BR 50131$ 
50132$: 


VERIFY OPERATION OF CHARACTER BAND INTERLOCK SWITCH ON LP25,26 - OR = VFU INTERLOCK ON LPO7 
INCR LUNIT FROM #0 TO R1 BY #1 


_ CLR LUNIT 
i a 50141$ 
501428: 
INC LUNIT 
50141$: 
CMP LUNIT,R1 
BGT 50143$ 
LET R2 := LUNIT SHIFT 1 
MOV LUNIT,R2 
ASL R2 
LET FLAG := #0 
CLR FLAG 
IF #F LAGO? SETIN STATUS‘R2) AND #FLAG26 NOTSETIN STATUS(R2) THEN 
002512 BIT #FLAGO?7, STATUS(R2) 
BEQ 50144$ 
002512 BIT #FLAG26, STATUS (R2) 
BNE 50144$ 


PRINTF or LUN'T 
MOV LUNIT,-¢SP 


MOV #VFUINT, a3) 
MOV #2,-(SP) 
MOV SP,RO 


| READY LINE INTERLOCKS 


0 
1974 
9 


| 
0 
| 1975 

0 


a 


1979 


1980 


1981 


1982 


1983 


1984 
1985 


a = 


— 


0 
1976 


0 
1977 

0 
1978 

01 


013010 
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\ at 0 9 3 SS 3 SI SS SOS OS OS SS 
ON NNAOAMUWUMYIUI ES & & Pte 
SHRASTSLSRRKSSERKSEKRSSRISSSKSSS 


ww 
NM 
oO 
ine) 


013202 
0 


104417 
062706 


000422 


013746 


012746 
012746 
010600 
104417 
062706 


032772 
001444 


032762 


104443 


CZLPLDO LP25, LP26, LPO? TEST 


TEST 2 


000006 


002314 


014046 
000002 


000006 
014134 
000001 


000004 


100000 


002000 
001000 


002314 
014447 
000002 


000006 


002314 


014164 
000002 


000006 


J 5 
SEQ 0060 
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002356 


002512 
002512 


501448: 


50145$: 


10004$: 


50147$: 


50150$: 


TRAP C$PNTF 


ADD #6,SP 
ELSE 
BR 50145$ 


PRINTF #BANDSW,LUNIT 
MOV LUNIT,=(SP) 


MOV P,RO 
TRAP CSPNTF 
ADD #6,SP 


PRINTF #BNDSW1 
MOV #BNDSW1,-(SP) 


MOV SP ,RO 

TRAP C$PNTF 
ADD #4 ,SP 

ENDIF 

GMANIL READY, FLAG, 100000, YES 

TRAP ’ 
BR 10004$ 

WORD FLAG 

WORD TS$CODE 


READY 
«WORD 100000 
IF #BIT15 SETIN @LPCSR(R2) THEN 
BIT #B1T15,aLPCSR(R2) 
BEQ 50146$ 


IF #FLAGO7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2) THEN 
BIT er aaa 


014 
BIT #FLAG26, STATUS (R2) 
50147$ 


PRINTF #VFURDY,LUNIT 
MOV LUNIT,-(SP) 
MOV MVFURDY ,-(SP) 
MOV #2,-(SP) 


V sP,RO 
TRAP CSPNTF 
ADD #6,SP 

ELSE 
BR 50150$ 


PRINTF #BNDRDY,LUNIT 
MOV LUNIT,-(SP) 
MOV yet + ea 


MOV SP,RO 
TRAP CS$PNTF 
ADD #6,SP 
ENDIF 
GMANIL READY, FLAG, 100000, YES 
TRAP C$GMAN 


K 5 
| SEQ 0061 


 CZLPLDO LP25, LP26, LPO7 TEST. MACRO M1113 30-DEC-80 09:36 PAGE 24-7 
- READY LINE INTERLOCKS TEST 2 
013204 000404 BR 10005$ 
3206 002274 .WORD FLAG 
| 013210 900130 .WORD  TS$CODE 
013212 007603 .WORD READY 
013214 100000 .WORD 100000 
013216 10005$: 
| 1986 013216 ELSE 
013216 000426 BR 501518 
013220 50146$: 
1987 013220 LET ERRTBL(R2) := ERRTBL(R2) + #1 
013220 005262 003114 INC ERRTBL (R2) 
| 1988 013224 LET L$LUN := LUNIT 
- 013224 013737 002314 002074 MOV LUNIT,LSLUN 
1989 013232 IF #FLAGO? SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2) THEN 
013232 032762 002000 002512 BIT #FLAGO7, STATUS (R2) 
013240 0017411 BEQ 501528 
-013242 032762 001000 002512 BIT #F LAG26, STATUS (R2) 
013250 001005 BNE 50152 
1990 013252 ERRHRD 16,VFUINF 
013252 104456 TRAP C$ERHRD 
013254 000020 .WORD 16 
013256 004257 .WORD  VFUINF 
013260 000000 .WORD 0 
1991 013262 ELSE 
013262 000404 BR 501538 
013264 50152$: 
1992 013264 ERRHRD 10, BNDSWI 
013264 104456 TRAP C$ERHRD 
013266 000012 .WORD 10 
013270 003556 .WORD  BNDSWI 
013272 000000 WORD 0 
1993 013274 ENDIF 
013274 50153$: 
1994 013274 ENDIF 
013274 501518: 
1995 013274 LET @LPCSR(R2) := #00 
013274 012772 000000 002356 MOV #00, ALPCSR(R2) 
1996 013302 END INC 
013302 000611 BR 501428 
013304 501438: 
1997 013304 LET OUTBUF := #14 
013304 012737 000014 003160 MOV #14, OUTBUF 
1998 013312 OUTPUT #OUTBUF 41 
1999 013354 EXIT TST 
013354 104432 TRAP CSEXIT 
013356 001162 .WORD 1L10011-. 
2001 .NLIST BEX 
2003 013360 122 105 101 INTLK: .ASCIZ /READY LINE INTERLOCK TEST 2/<12><12> 
2004 013416 045 116 045 PAPRSW: .ASCIZ /%N%ATEAR OFF PAPER JUST BELOW LUNIT %D2/ 
013466 045 101 040 PAPSW1: .ASCIZ /%A TO CHECK PAPER LOW %NZAINTERLOCK. 2N/ 
2006 013535 045 116 045 PAPRDY: .ASCIZ /%N%XARESTORE PAPER, CLEAR, PLACE LUNIT %D2%A ON LINE.%N/ 
7 013624 120 101 120 PAPTST: .ASCIZ /PAPER LOW TEST/<12> 
2008 013644 045 116 045 HAMRSW: .ASCIZ /%N%ADISENGAGE HAMMER BANK LATCH ON LUNIT %D2/ 
2009 013721 045 116 045 HAMSW1: .ASCIZ /%N%ATO CHECK INTERLOCK SWITCH. %N/ 
2010 013762 045 116 045 HAMRDY: .ASCIZ /%N%AENGAGE LATCH, CLEAR.PLACE LUNIT %D2%A ON LINE. %N/ 


L 5 
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SEQ 0062 


READY LINE INTERLOCKS TEST 2 
2011 014046 045 116 045 BANDSW: .ASCIZ /%N%AOPEN CHARACTER BAND COVER ON LUNIT %D2%A TO CHECK/ 
2012 014134 045 116 045 BNDSW1: .ASCIZ /%N%ZAINTERLOCK SWITCH. %N/ 
2013 014164 045 116 045 BNDRDY: .ASCIZ/%NZACLOSE BAND COVER ON LUNIT %D2%A,CLEAR,PLACE ON LINE./ 
2014 014255 045 116 045 BGTLCH: .ASCIZ /%NZAOPEN BAND GATE LATCH ON LUNIT £D2%A TO CHECK MICROSWITCH. %N/ 
2015 014355 045 116 045 VFUINT: .ASCIZ /%NZALIFT VFU COVER ON LUNIT %D2%A TO CHECK MICROSWITCH. 2N/ 
Sng 014447 045 116 045 A -ASCIZ /%N%ZACLOSFE VFU COVER ON LUNIT %D2%A,CLEAR,PLACE ONLINE. %N/ 
-V 
2018 
2019 -LIST BEX 
2020 014540 ENDTST 
014540 L10011: 
2021 014540 104401 TRAP CSETST 
c 
2022 014542 ENDMOD 
2023 


f 
| 
| 
r | 
\ 
ad a 





CZLPLDO LP25, LP26, LPO7 TEST 
FORMS LENGTH SELECTION 


5 
soe 014542 


2035 
2036 014542 
014542 

2037 
2038 014542 
014542 
2039 014544 
014544 
, 014550 
014552 


014570 
014572 


104450 
103402 


104432 
003076 


005737 
001002 


104432 
003064 
013701 
005301 
000001 
005037 
000402 
005237 
023701 


013702 
006302 


032762 
001402 
000137 


013746 


012746 


002262 


002012 


002314 


002314 
002314 
016366 


002314 


002000 
015304 
002374 
016434 
000002 
000006 
016520 


M 5 
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002512 


.SBTTL FORMS LENGTH SELECTION 
BGNMOD 


++ 

‘THIS TEST CHECKS ALL POSITIONS OF THE FORM LENGTH SELECT SWITCH. THE 
*PROGRAM INDICATES THE SPECIFIED SETTING OF THE FORM LENGTH SELECT SWITCH 
‘AND WAITS FOR THE OPERATOR TO SET THE SWITCH ON THE PRINTER. THE PAPER 
*1S THEN ADVANCED UNDER PROGRAM CONTROL. THE PRINTER OUTPUT IS VISUALLY 
‘INSPECTED AFTER ALL SWITCH SETTINGS HAVE BEEN RUN THROUGH BY THE OPERATOR 
>TO VERIFY THAT THe PROPER PAPER MOVEMENT HAS OCCURRED FOR EACH SWITCH 
SSETTING. ALL LPO7'S WILL BE TESTED ON ALL TCVFU CHANNELS AND LINE COUNTS. 


BGNTST 3 
:DETERMINE IF MANUAL INTERVENTION IS ALLOWED 
MANUAL 


TRAP C$MANI 
BCOMPLETE 1$ 
BCS 1$ 


.WORD 10012. 
EXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED 
i$: TST INHINT 
BNE 2$ 
EXIT TST 
TRAP 
L10012-. voter 


WORD 
2$: LET R1 := LSUNIT - 41 
MOV LSUNIT,R1 


DEC R1 

$BRJMP=1 
INCR LUNIT FROM #0 TO R1 BY #1 
CLR UNIT 


L 

BR 50155$ 
50154$: 

INC LUNIT 
50155$: 

cMP LUNIT,R1 

BLE 50156$ 

JMP 50157$ 


50156$: 
LET R2 := LUNIT SHIFT 1 
MOV | le 


IF #FLAGO7 NOTSETIN STATUS(R2) THEN 
BIT #FLAGO7, STATUS (R2) 


- +6 
JMP 50160$ 
PRINTF #LINSWI,LUNIT 
MOV LUNIT,~(SP) 
MOV A#LINSWI ,~(SP) 
MOV #2,-(SP) 


MOV SP,RO 
TRAP CSPNTF 
ADD #6,SP 


PRINTF #LINSW1 
MOV #LINSW1,-(SP) 


SEQ 0063 


o~_—_———— ee _—_—— 


N 5 
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| 

SEQ 0064 
| FORMS LENGTH SELECTION 

} 


014670 012746 000001 MOV #1,~-(SP) 
014674 010600 MOV SP,RO 
014676 104417 TRAP CSPNTF 
014700 062706 000004 ADD #4 ,SP 
2052 014704 PRINTF #FLSSEL,LUNIT 
014704 013746 002314 MOV LUNIT ,=(SP) 
014710 012746 016600 MOV MFLSSEL,-(SP) 
014714 012746 000002 MOV #2,-(SP) 
014720 010600 MOV P 
014722 104417 TRAP CSPNTF 
014724 06 000006 ADD #6,SP 
2053 014730 PRINTF #FLS1,LUNIT 
014730 013746 002314 MOV LUNIT,=(SP) 
014734 012746 016677 MOV #FLS1,-(SP) 
014740 012746 000002 MOV #2,-(SP) 
014744 010600 MOV SP,RO 
014746 104417 TRAP CSPNTF 
014750 062706 000006 ADD #6,SP 
2054 014754 PRINTF #FLSMS1,LUNIT 
014754 013746 002314 MOV LUNIT,=(SP) 
014760 012746 017373 MOV #FLSMS1,-(SP) 
014764 012746 000002 MOV #2,-(SP) 
014770 010600 MOV SP,RO 
014772 104417 TRAP CSPNTF 
014774 062706 000006 ADD #6,SP 
2055 015000 INCR R3 FROM #0 TO #50 BY #4 
015000 005003 CLR 
015002 000402 BR 50162$ 
015004 50161$: 
015004 062703 000004 ADD #4 ,R3 
015010 50162$: 
015010 020327 000050 CMP R3,450 
015014 003402 BLE 50163$ 
015016 000137 015300 JMP 50164$ . 
015022 50163$: , 
2056 015022 LET T3SET := MFFSET + -R3 
015022 012737 017225 016372 MOV #FFSET,T3SET 
015030 060337 016372 ADD R3,T3SET 
2057 015034 PRINTF #FLSMSG,LUNIT,T3SET 
015034 013746 016372 MOV T3SET,-(SP) 
015040 013746 002314 MOV LUNIT,=(SP) 
015044 012746 017301 MOV #FLSMSG,~-(SP) 
015050 012746 000003 MOV #3,~-(SP 
015054 00 MOV P 
015056 104417 TRAP C$PNTF 
015060 062706 000010 ADD #10,SP 
2058 015064 PRINTF #FLSMS1 
015064 012746 017373 MOV #FLSMS1,-(SP) 
015070 012746 000001 MOV #1,-(SP) 
015074 010600 MOV SP ,RO 
015076 104417 TRAP C$PNTF 
015100 062706 000004 ADD #4 ,SP 
2059 015104 LET FLAG := #0 
015104 005037 002274 CLR FLAG 
2060 015110 GMANIL READY,FLAG, 100000, YES 
015110 104443 TRAP C$GMAN 
015712 000404 BR 10000$ 


ea 


| CZLPLDO LP2S, LP26, LPO7 TEST 
| FORMS LENGTH’ SELECTION 
| 015114 002274 
| 015116 000130 
015120 007603 
015122 1 
015124 
2061 015124 
015166 
015230 
015272 
015276 
015276 
015300 
015300 
015300 000137 
015304 
015304 
015346 004737 005544 
015352 


| 
| $062 
5068 
5064 004737 005544 
5065 
000642 
2066 
016072 
2067 
5068 
5069 
5070 615414 
018414 012737 000052 
015422 012737 000200 
018430 12737 000001 
018436 000402 
018440 005237 003154 
018444 023727 003154 
018454 060137 015572 


015564 005237 003160 


— 
w 
uw 
~“ 
o 
N 
Mm 
Ww 


5572 012737 000014 


5704 012737 000052 
5712 012737 000220 


5720 005037 003154 
5724 000402 


5726 005237 003154 
5732 023727 003154 


5740 003402 
toy 000137 016072 


eleolelelolelelelelelelelelelelelelejioia) 
32S Ss Sh os a SS 
wi Ww 
N 
ae) 
So 


cannes 


003156 
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SEQ 0065 
MACRO M1113 30=DEC-80 09:36 PAGE 25-2 
WORD FLAG 
"wORD  TS$CODE 
"WORD READY 
“wORD 100000 
10000$: 
OUTPUI #REFLIN,#62.,.,LUNIT ;TEST ID + REF. LINE 
OUTPUI T3SET,#3,,LUNIT 
OUTPUI #MOVMSG,#62.,,LUNIT 
JSR PC,QUIET 
END INC 
BR 50161$ 
501648: 
ELSE 
JMP 50165$ 
50160$: 
OUTPUI #REFLIN,#30.,,LUNIT sTEST ID 
JSR PC,QUIET 
OUTPUI #CHNSEC,413.,,LUNIT :SECTION ID 
LET WORK] := #52 :CODE FOR ASTERISK 
MOV #52, WORK1 
LET OUTBUF := #200 = CHANNEL CODE 


003160 
003154 


000014 


003160 


003156 
003160 


000017 


MOV #200, OUTBUF 
INCR WORK FROM #1 TO #12. BY #1 ;REPEAT FOR ALL 12 CHANNELS 
MOV #1,WORK 
RR 50167$ 
50166$: 
INC WORK 
50167$: 
CMP WORK ,#12. 
BLE 50170$ 
JMP 50171$ 


50170$: 
OUTPUI] #OUTBUF .41,,LUNIT 
OUTPUI #WORK1,41,,LUNIT,WORK 
LET OUTBUF := OUTBUF + #1 sNEXT CHANNEL 
INC OQUTBUF 
END INC 
BR 50166$ 
50171$: 


LET OUTBUF := #14 
MOV #14,QUTBUF 
OUTPUI #OUTBUF ,41,,LUNIT 


OUTPU! # INSEC.415.,,LUNIT :SECTION ID 
LET WORK) := #52 CODE FOR ASTERISK 
MOV #52,WORK1 
LET OUTBUF := #220 :CODE FOR VFU 
MOV #220, OUTBUF 
INCR WORK FROM #0 TO #15. BY #1 
CLR WORK 
BR 50173$ 
50172$: 
INC WORK 
501738: 
CMP WORK #15. 
BLE 50174$ 
JMP 50175$ 
501748: 


| 
| 
| 


| 
| 
| 


CZLPLDO LP25, LP26, LPO7 TEST 
FORMS LENGTH SELECTION 


2083 015746 
2084 016010 
016010 005737 003154 
00300 
000137 016064 


005237 003160 
016070 000716 


016072 032762 002000 
016102 000137 016252 


16106 013746 002314 
016112 012746 017133 
000002 


2093 016132 


6150 
016152 062706 000006 

2094 016156 
016156 012737 000014 

2095 016164 
C16164 005037 002274 

2096 016170 


01 
2097 016204 
2098 016246 

016246 000137 016322 


0 
2099 016252 
016252 012737 00v014 


2100 
2101 016322 


0 
2102 016322 
016322 012746 016772 
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002512 


003160 


003160 


50176$: 
INC 


BR 
50175$: 
50165 


100018: — 


50177$: 


50200$: 
MOV 





C 6 
SEQ 0066 


QGUTPUI #OUTBUF , —-" 


IF WORF. GT #0 7 
WORK 
.*6 
50176$ 
OUTPUI #WORK1,41,,LUNIT, WORK PRINT ASTERISK 
ENDIF 
LET OUTBUF := OUTBUF + #1 
OUTBUF 
ENDINCR 
50172$ 
END iF 


$: 
;SET FORMS _" a "Dike SWITCH TO ITS "REGULAR" SETTING 


AGO? NOTSETIN STATUS(R2) THEN 
PFLAGO?. STATUS (R2) 


~ +6 
50177$ 
PRINTF #NMLFLS,LUNIT 


PRINTF #FLSMS1,LUNIT 
LUNIT,-(SP) 
#FLSMS1,-(SP) 
#2,-(SP) 


LET OUTBUF := #14 
#14, 0UTBUF 
LET FLAG := #0 


GMANIL READY ,FLAG,100000, YES 


:CLEAR <CR> FLAG 
;AND WAIT FOR RESPONSE 


OUTPUI #OUTBUF ,41,,LUNIT 


LET OUTBUF := 414 
#14, OUTBUF 

OUTPU] #OUTBUF ,41,,LUNIT 
ENDIF 


PRINTF #PAPCHK 
#PAPCHK ,-(SP) 


MAKE SURE MOVEMENT WAS RIGHT 


CZLPLDO LP25, LP26, LPO7 TEST 


016326 


9 
2103 

01 
2104 


01 
2105 016362 
01 


pp 
Qe 


So 
co 


016374 
016376 


ee ae 
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Nm 
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me ee et od ot ot ot 
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~N 
an 


01764 
2140 017650 
2161 


FORMS LENGTH SELECTION 


012746 
00 


000137 
177777 


104401 


000001 


000004 
002274 


014600 


— wos 
— a os SS OS 
ANAGAAA—O 
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SEQ 9067 
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10002$! — 


J 
50157$: — 


T3SET: 
T 


WAIT FOR RESPONSE 


50154$ 


/CHANNEL 1-12/<12> 

/LINE COUNT 0-15/ 

/%NZASET LINES SWITCH ON UNIT %D2%A TO ‘6"' TO SELECT/ 

/%N%AB LINES PER INCH VERTICAL PRINTING DENSITY Y./ 

/YN2%ASET VFU-FLS SWITCH ON UNIT %D2%A TO THE "ELS" POS! cd s-ry %N/ 
7YNXASET FORMS LENGTH SELECT SWITCH ON UNIT %D2%A TO ‘8''.% 
/UNXZAVERIFY PRGPER PAPER MOVEMENT. / 

/FORMS LENGTH SELECTION TEST #3---REF ERENCE y. ferret tT /<14> 
/%YNZASET FORMS LENGTH SELECT SWITCH ON UNIT %D2%A TO 11.2N/ 

GS 7 FORMS LENGTH MESSAGES 


FFSET -AS ( 3 
-ASCIZ /3.5/ 
-ASCIZ /4 / 
eASCIZ /5.5/ 
-ASCIZ /6 / 
eASCIZ /7 / 
eASCIZ /8 / 
-ASCIZ /8.5/ 
eASCIZ /11 / 
-ASCIZ /12 ; 
-ASC 14 / 
FLSMSG: .ASCIZ /%NZASET FORMS LENGTH pA SWITCH ON UNIT ~~ TO %1%A,/ 
FLSMS1: .ASCIZ /%NZADEPRESS ‘‘CLEAR’',’‘TOF'*, AND PLACE ON LINE. 2N/ 
FLSMS2: .ASCIZ /%NZADEPRESS “'CLEAR'’."'TOF'',AND PLACE ON LINE,ON LUNIT %D2%N/ 
MOVMSG pe / INCHES SHOULD OCCUR BETWEEN THIS AND THE REFERENCE LINE..... /<12> 
VEN 
LIST BEX 
ENDTST 
L10C12 
TRAP CSETST 
ENDMOD 


017770 013746 002322 MOV CLKTYP,=(SP) 
017774 0602501 BLT 50213$ 
017776 025727 002322 000004 CMP CLKTYP 44 
020004 003075 BGT 50213$ 
020006 006316 ASL (SP) 

020010 0627 5 020016 ADD #502058, (SP) 


E 6 


SEQ 0068 
CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30-DEC-80 09:36 PAGE 26 
PRINTING SPEED MEASUREMENT 
2143 .SBITL PRINTING SPEED MEASUREMENT 
sye8 017650 GNMOD 
Soe 
2146 > THE PRINT SPEED TEST WILL REPORT TO THE OPERATOR THE TOTAL NUMBER OF 
2147 : LINES PRINTED WITHIN A SPECIFIED TIME PERIOD. THE DATA PATTERN USED 
2148 + IS DESIGNED TO CAUSE PRINTING SPEED TO BE MINIMAL AND IS DEPENDENT 
2149 : ON PRINTER TYPE AND THE CHARACTER SET (BAND TYPE ) ON EACH PRINTER. 
2150 > THE TIME PERIOL CAN BE CONTROLLED THRU MANUAL OPERATION, OR IF THE 
2151 : SYSTEM HAS A CLOCK VIA SUPPLYING A COUNT OF SECONDS. ANY TIME INTERVAL OF 
$136 : 4 TO 60 SECONDS MAY BE SELECTED. THIS IS ONE OF THE *’SwW'’ QUESTIONS . 
> _— 
2154 017650 BGNTST 4 
2155 017650 T4:: 
2156 017650 LET R1 := LSUNIT - 41 ;NUMBER OF UNITS TO TEST 
017650 013701 002012 MCV LSUNIT,R1 
017654 005301 i DEC R1 
2157 017656 IF MANSPD NE #0 THEN ‘; DETERMIN IF MANUAL TESTING SELECTED 
017656 005737 002264 TST MANSPD 
017662 001416 BEQ 50201$ 
2158 017664 MANUAL . :DETERMINE IF MANUAL INTERVENTION ALLOWED 
017664 104450 TRAP CS$MANI 
2159 017666 BCOMPLETE 1$ 
017666 103402 BCS 1$ 
2160 017670 EXIT TST 
017670 104432 TRAP CSEXIT 
017672 005362 -WORE 110013-. 
2161 017674 1$: IF INHINT EQ #0 THEN : EXIT IF INTERVENTION INHIBITED 
017674 005737 002262 TST INHINT 
017700 001003 BNE 50202$ 
2162 017702 EXIT TST 
017702 104432 TRAP CSEXIT 
017704 005350 -WORD 110013-. 
2163 017706 ELSE 
017706 000403 bh 50203$ 
017710 50202$: 
2164 017710 LET WORK := PERIOD 
017710 013737 002266 003154 MOV PERIOD, WORK 
2165 017716 ENDIF 
017716 " 502038: 
2166 0°7716 ELSE 
017716 000403 BR 50204$ 
017720 50201$: 
2167 017720 LET WORK := PERIOD : CLOCK TEST TIME 
017720 013737 002266 003154 MOV PERIOD, WORK 
2168 017726 ENDIF 
017726 50204$ 
2169 017726 OUTPUT #PRTSPD,436. ;PRINT TEST ID 
2170 017770 SELECT CLKTYP OF 4 VERIFY :SET UP THE RIGHT CLOCK 


MO\ a(SP)+,PC 
020016 50205$: 


C7LPLDO .P25, LP26, LPO? TEST 
PRINTING SPEED MEASUREMENT 


2188 020166 


2189 

2190 020174 
020174 
020176 

2191 020176 


Oo 
pe 
Oo 
—s 
& 


020036 
020110 
020176 


000137 
000461 
012737 
012700 


104441 
012746 


012700 
104441 


0004 34 


013737 
062737 


021554 


002326 
000002 


000111 
000340 


000300 
036620 
002332 
000003 
000010 
000000 
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002334 


002330 
002330 


002334 


-WORD 50212 
«WORD 50211$ 
WORD 50210$ 
.WORD 50207$ 
~WORD 50206$ 
CASE 1 
50211$: 
JMP ENDS ;JUST EXIT TEST NO CLOCK AVAILABLE 
CASE 2 sKW11-L LINE CLOCK SELECTED 
BR 50213$ 
502108: 
LET CLKENA := #100 ; INTERRUPT ENABLE/ CLR MONITOR 
MOV #100,CLKENA 
: SET PRI7 WHILE CHANGING VECTOR ADDRESS 
SETPRI #PRIO7 
MOV att ba RO 
TRAP C$SPRI 
SETVEC CLKVEC. ACLKTCK,#PRIO6 :SET UP INTERRUPT VECTOR 
MOV PR106,- -(§P) 
MOV aA CA, -(SP) 
MOV CLKVEC,-(SP) 
MOV #3,-(SP) 
TRAP C$SVEC 
ADD #10,SP 
SETPRI #PRIOO 
MOV #PRI00,RO 
TRAP C$SPRI 
CASE 3 sKW11-P REAL TIME CLOCK 
HR 50213$ 
50207$: 
LET CLKSET := CLKCSR + #2 
MOV CLKCSR,CLKSET 
ADD #2, St al 
LET CLKENA := ibe: :SET UP ENABLE BITS 
MOV nit, LKENA 
; RUN, RATE = 1OKNE. REPEAT INTR, DOWN, INT ENABLE 
SETPRI #PRIO7 
MOV ont h of RO 
TRAP C$SPRI 
ete’ fore ACLKTCK,4PRI06 : INTERRUPT VECTOR 
#PRI06,- -(§P) 
mov ACLKTCK,-(SP) 
MOV CLKVEC,-(SP) 
MOV #3,-(SP 
TRAP C$SVEC 
ADD #10, 
SETPR] #PRIOO 
MOV #PRI00,RO 
TRAP C$SPR]I 
CASE 4 
KR 50213$ 
50206$: 
NOP :THIS IS JUST A DUMMY 


SEQ 0069 


CZ7LPLDO LP25, LP26, L 
PRINTING SPEED MEASUREME 


2192 020200 
020200 


020200 
2193 920200 
2194 020206 
020206 


020222 


2202 020224 


0 
2210 020332 
02 


112737 
010137 


005037 


013702 
006302 


000001 
032762 
001402 
000137 
032762 
001402 
000137 
012737 
000137 


012737 


012737 
032762 


012746 
piers 


010600 
104417 
062706 


000137 


032762 
001002 


> 
‘ 


EST 
N 


010000 
020772 
002000 
020266 
024224 
020274 


024640 


000205 
001000 


020462 
002000 


02046? 
023503 
000001 


000004 


020766 


001000 


003160 


002512 


002512 


023040 


023040 


003154 
002512 


002512 


G 6 


SEQ 0070 
MACRO M1113 30=DEC=80 09:36 PAGE 26-2 
ENDSELECT 
50212$: 
502138: 
LET OUTBUF :B= LF 
MOVB ALF ,OUTBUF 
LET LUNIT := R1 
118 MOV R1,LUNIT 
LET ERRFLG := #0 
CLR ERRFLG 
LET R2 := LUNIT SHIFT 1 
MOV LUNIT,R2 
ASi R2 
: DETERMINE WHICH BAND, AND SEND APPROPRIATE PATTERN 
$RBRIMP=1 
IF #FLAGI6 NOTSETIN STATUS(R2) THEN ; 64 CHAR BAND 
BIT #FLAGI6, STATUS (R2) 
BEQ +6 
JMP 50214$ 
IF #FLAGO7 NOTSETIN STATUS(R2) THEN 
BIT #FLAGO7, STATUS (R2) 
BEQ +6 
JMP 50215$ 
LET BNDPAT := 4TABA64 
MOV #TABAG64 ,BNDPAT 
ELSE 
JMP 50216$ 
50215$: 
LET BNDPAT := #TB0764 
MOV #1B0764 ,BNDPAT 
ENDIF 
50216$: 
LET WORK := 4133. 
MOV #133. ,WORK 
IF #FLAG26 NOTSETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(R2) THEN 
BIT #FLAG26,STATUS(R2) 
BEQ + 
JMP 50217$ 
BIT #FLAGO7, STATUS (R2) 
REQ +6 
JMP 502178 
PRINTF #LPM64 :SEND SPEED MESSAGE TO CONSOLE 
MOV #LPM64 ,-( SP) 
MOV #1,-(SP) 
MO SP RO 
TRAP CSPNTF 
ADD #4,SP 
OUTPUI #LPM64+4,442.,,LUNIT :SEND SPEED MESSAGE TO PRINTER 
— OUTPU] #OUTBUF ,41,,LUNIT sLINEFEED 
a 
JMP 502208 
502178: 
IF MFLAG26 SETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(R2) THEN 
BIT #*LAG26, STATUS (R2) 


002512 


BNE .*6 


CZ7LPLDO LP25, LP26, LPO7 TEST 


| PRINTING SPEED MEASUREMENT 


———— 


020642 
002000 


020642 
023645 
000001 


000004 


000137 020766 


012746 
012746 
010600 
104417 
062706 


024007 
000001 


000004 


000137 021520 


032762 002000 
021020 
024432 


021026 


21006 012737 
000137 


012737 025046 


012737 
032762 


000205 
001000 


021214 
032762 002000 


021214 


023564 
000001 


0 
2232 Be inee 


621076 


—_—- + 
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002512 


002512 


023040 


023040 


003154 
002512 


002512 


JMP 50221$ 
BIT #F LAGO7, STATUS (R2) 
BEQ +6 
JMP 50221$ 
PRINTF #L26M64 
MOV #L26M64 ,-(SP) 
MOV #1,-(SP) 
MOV P,RO 
TRAP CSONTF 
ADD #4,SP 
OUTPUI 4L26M64+4,442.,,LUNIT 
OUTPUI #OUTBUF ,41,,LUNIT 
ELSE 
JMP 50222 
502218: 
PRINTF #LO7M64 
MOV #.07M64 ,-(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP CSPNTF 
ADD #4,5P 
OUTPU! #L07M64+4,442.,,LUNIT 
OUTPUI A#OUTBUF ,41,,LUNIT 
ENDIF 
50222$: 
ENDIF 
502208: 
ELS 
JMP 50223$ 
502148: 
IF #FLAGO7 NOTSETIN STATUS(R2) THEN 
BIT #FLAGO7,STATUS(R2) 
BEQ +6 
JMP 50224$ 
LET BNDPAT := #TABA96 
MOV #TABA96 ,BNDPAT 
ELSE 
JMP 50225$ 
50224$: 
LET BNDPAT := #1TB0796 
MOV #1B0796,BNDPAT 
ENDIF 
502258: 
LET WORK := #133. 
MOV #133. ,WORK 
IF #FLAG26 NOTSETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(R2) THEN 
BIT #FLAG26,STATUS(R2) 
BEQ + 
JMP 50226$ 
BIT #FLAGO7, STATUS (R2) 
BEQ +6 
JMP 50226$ 
PRINTF #LPM96 
MOV #LPM96,-(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP CSPNTE 


SEQ 0071 
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C7LPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC=80 09:36 PAGE 26-4 
PRINTING SPEED MEASUREMENT 


SEQ 0072 


021100 062706 000004 ADD #4,5P 
2233 021104 ouTPuI #LPM96+4 442. rt ito 
2234 021146 : OUTPU! #OUTBUF ,41,,LUNIT 
235 021210 ELSE 
021210 000137 021520 JMP 50227$ 
021214 50226$: 
2236 021214 IF #FLAG26 SETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(R2) THEN 
021214 032762 001000 002512 BIT #FLAG26, STATUS (R2) 
021222 001002 BNE +d 
021224 000137 021374 JMP 502308 
021230 032762 002000 002512 BIT #FLAGO7, STATUS (R2) 
021236 001402 BEQ .+6 
. 021240 000137 021374 JMP 50230$ 
2237 021244 te og #L26M96 
021244 012746 023726 MOV #L26M96 ,-(SP) 
021250 012746 000001 MOV #1,-(SP) 
021254 010600 "yy 
021256 104417 AAP CSPNTF 
C21260 062706 000004 ADD #4,SP 
2238 021264 OUTPUI #L26M96+4,442.,,LUNIT 
2239 021326 OUTPUI #OUTBUF ,41,,LUNIT 
2240 021370 ELSE 
021370 000137 021520 JMP 50231$ 
021374 502308: 
2241 021374 PRINTF #LO7M96 
021374 012746 024070 MOV #L07M96,-(SP) 
021400 012746 000001 MOV #1,-(SP) 
021404 010600 MOV SP RO 
021406 104417 TRAP CSPNTF 
021410 062706 000004 ADD #4,SP 
2242 021414 OUTPUI 4L07M96+4,442.,,LUNIT 
2045 021456 OUTPUI #MOUTBUF ,41,,LUNIT 
2244 021520 ENDIF 
021520 502318: 
2245 021520 ENDIF 
021520 50227$: 
2246 021520 ENDIF 
021520 50223$: 
2247 021520 LET @LPCSR(R2) := #0 DISABLE INTERRUPTS IN CASE OF MANUAL TEST CASE 
021520 005072 002356 CLR @LPCSR(R2) 
2248 177777 $BRJMP=-1 
2249 021524 LET LINCNT := 4&0 ; CLEAR LINE COUNTER 
021524 005037 002276 CLR LINCNT 
2250 021530 LET TICK := #60. sSET UP INITIAL CLOCK VALUE 
021530 012737 000074 036674 MOV #60.,TICK 
2251 021536 004737 021742 JSR PC,REPLUP :DO THE OUTPUT 
2252 021542 LET LUNIT := LUNIT - #1 
0 005337 002314 DEC LUNIT 
IF COND GE THEN 
002402 BLT 50232% 
000137 020212 JMP 11$ 


ENDIF 
50232$: 


ENDS: a CLKTYP EQ #3 THEN 
023727 002322 000003 CLKTYP, #3 
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SEQ 0073 
CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 26-5 
PRINTING SPEED MEASUREMENT 
021562 001011 BNE 50233$ 
2259 021564 SETPRI #PRIO7 
021564 012700 000340 MOV #PRIO7,RO 
021570 104441 TRAP C$SPRI 
2260 021572 CLRVEC CLKVEC 
021572 013700 002332 MOV CLKVEC,RO 
| 021576 104436 TRAP C$CVEC 
2261 021600 LET @CLKCSR := #00 
021600 012777 000000 160520 MOV #00, aCLKCSR 
2262 021606 ENDIF 
021606 50233$: 
2263 021606 IF Ci.KTYP EQ #2 THEN 
021606 023727 002322 000002 CMP CLKTYP,#2 
021614 001021 BNE 50234$ 
2264 021616 SETPRI #PRIO7 
021616 012700 000340 MOV #PRI07,RO 
021622 104441 TRAP C$SPRI 
2265 021624 SETVEC CLKVEC,4I1GNORE ,APRI06 
021624 012746 000300 MOV #PRI06,-(SP) 
021630 012746 010000 MOV # IGNORE ,~(SP) 
021634 013746 002332 MOV CLKVEC ,-(SP) 
021640 012746 000003 MOV #3,-(SP) 
021644 104437 TRAP C$SVEC 
021646 062706 000010 ADD #10,SP 
2266 021652 LET @CLKCSR := #00 
021652 012777 000000 160446 Vv #00,aCLKCSR 
2267 021660 ENDIF 
021660 502348: 
2268 021660 SETPRI #PRIOO 
021660 012700 000000 MOV #PRI00,RO 
021664 104441 TRAP C$SPRI 
2269 021666 LET OUTBUF :B= #14 
021666 112737 000014 003160 MOVB 414 ,OUTBUF 
2270 021674 OUTPUT #OUTBUF ,41 
2271 021736 EXIT TST 
021736 104432 TRAP CSEXIT 
021740 003314 «WORD 110013-. 
5555 : 
ae :THIS IS SUBROUTINED TO DECREASE THE SIZE OF THE INITIAL INCREMENT LOOP. 
2276 Y 
2277 021742 REPLUP: 
2278 021742 IF CLKTYP EQ #4 THEN 
021742 023727 002322 000004 CMP CLKTYP,&4 
021750 001124 BNE 50235$ 
2279 021752 PRINTF A#OFFLIN :TELL OPERATOR TO PLACE PRINTERS OFFLINE 
- 021752 012746 023146 MOV MOFFLIN,~(SP) 
021756 012746 000001 MOV #1,-(SP) 
021762 010600 MOV SP RO 
021764 104417 TRAP CSPNTF 
021766 062706 000004 ADD #4,SP 
2280 021772 LET FLAG := #0 
021772 005037 002274 CLR FLAG 
2281 021776 GMANIL READY,FLAG, 100000, YES 
021776 104443 TRAP $GMAN 


C$GMA 
022000 000404 BR 10000$ 


K 6 
SEQ 0074 


 CZLPLDO LP25, LP26, LPO7 TEST MACRO ™1113 30=DEC-80 09:36 PAGE 26-6 
_ PRINTING SPEED MEASUREMENT 
022002 002274 .WORD FLAG 
022004 000130 .WORD TS$CODE 
022006 007603 .WORD READY 
922010 100000 .WORD 100000 
022012 10000$: 
2282 022012 PRINTF #ONLIN1,LUNIT PUT LUNIT TO TEST ON LINE 
022012 013746 002314 MOV LUNIT,=(SP) 
| 022016 012746 023206 MOV #ONLIN1,-(SP) 
022022 012746 000002 MOV #2,-(SP) 
022026 010600 MOV SP,RO 
022030 104417 TRAP C$PNTF 
022032 062706 000006 ADD #6,SP 
2283 022036 PRINTF #ONLIN2,LUNIT zEND OF TEST. 
022036 013746 002314 MOV LUNIT,=(SP) 
022042 012746 023307 MOV #ONL IN2,-(SP) 
022046 012746 000002 MOV #2,-(SP) 
022052 010600 MOV SP,RO 
022054 104417 TRAP C 
622056 062706 600006 ADD #6,SP 
2284 022062 PRINTF #ONLIN3,LUNIT 
022052 013746 002314 MOV LUNIT,=(SP) 
022066 012746 023405 MOV #ONL IN3,-(SP) 
022072 012746 000002 MOV #2,-(SP) 
022076 010600 MOV SP,RO 
022100 104417 TRAP CSPNTF 
022102 062706 000006 ADD #6,SP 
2285 022106 WHILE #BIT15 SETIN @LPCSR(R2) DO ; WAIT FOR LP SET ON-LINE 
022106 502368: 
022106 032772 100000 002356 | BIT #B1T15,aLPCSR(R2) 
022114 001402 BEQ 50237$ 
2286 022116 000240 NOP 
2287 022120 ENDDO 
022120 000772 BR 50236$ 
022122 50237$: 
2288 022122 LET LINCNT := #0 
022122 005037 002276 CLR LINCNT 
2289 022126 WHILE #B1T15 NOTSETIN @LPCSR(R2) DO ; REPEAT UNTIL LP GOES OFF-LINE 
022126 50240$: 
022126 032772 100000 002356 BIT #B1T15,a@LPCSR(R2) 
022134 001031 BNE 50241$ 
2290 022136 LET RS := BNDPAT 
022136 013705 023040 MOV BNDPAT,R5 
2291 022142 LET R3 := WORK 
022142 013703 003154 MOV WORK ,R3 
2292 022146 WHILE R3 GT #0 DO : PRINT R3 CHARACTERS 
022146 502428: 
022146 005703 TST R3 
022150 003417 BLE 50243$ 


22162 032772 100000 002356 BIT #B1T15,aLPCSR(R2) 
7 50246$ 


022170 
2295 022172 000137 022334 JMP 99$ ; EXIT LOOP IF OFF-LINE AGAIN 


2293 022152 WHILE #BIT7 NOTSETIN @LPCSR(R2) DO ; WAIT FOR READY 

022152 50244$: 

022152 032772 000200 002356 BIT #B1T7,aLPCSR(R2) 

022160 001007 BNE 50245$ 

2294 Bec les IF #BITIS SETIN @LPCSR(R2) THEN 
2296 022176 ENDIF 


| 
| 


C7LPLDO LP25, LP26, LPO? TEST 
PRINTING SPEED MEASUREMENT 


022176 
2297 022176 
022176 
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176 000765 
22200 
2298 022200 
22200 112572 002452 
2299 022204 
2204 005303 
2300 022206 
2206 000757 
22210 
2301 022210 
22210 104422 
2302 022212 
22212 005237 002276 
2303 022216 
22216 000743 
022220 
2304 622220 
22220 000445 
22202 
2305 022222 
022222 023727 002322 000003 
022230 001003 
2306 022232 
22232 012777 003202 160070 
2307 022240 
22240 
2308 022240 : 
22240 013777 002334 160060 
2309 022246 
22246 005037 036672 
2310 022252 
22252 005037 002276 
2311 022256 
22256 . 
022256 023737 036672 002266 
22264 002023 
2312 022266 
22266 013705 023040 
2313 022272 
22272 013703 003154 
2314 022276 
22276 
022276 005703 
22300 003412 
2315 022302 
22302 
022302 032772 000200 002356 


112572 002452 


502468: 


50245$: 
502438: 


50241$: 


50235$: 


50250$: 
50251$: 


50253$: 


50255$: 


0 50256$ 
2316 NOP 
2317 
0 : 
2318 LET : 
022316 2) 
2319 022322 LET R3: 


50256$ 


ENDDO 
BR 502448 
LET @LPBUF(R2) :B= (R5)+ ; PUT CHAR INTO LP BUFFER 
MOVB (RS) +, @LPBUF (R2) 
LET R3 := R3 - #1 ; DECRIMENT CHAR COUNTER 
DEC R3 
ENODO 
BR 50242$ 
BREAK ; ALLOW CTL=-C ABORT 
TRAP C$BRK 
LET LINCNT := LINCNT + 41 
C LINCNT 
ENDDO 
50240$ 
ELS 
BR 50247$ 
IF CLKTYP EQ #3 THEN 
CMP CLKTYP,4#3 
BNE 50250$ 
LET @CLKSET := #1666. ; 1/60 SEC. 
MOV #1666. ,@CLKSET 
ENDIF 
LET @CLKCSR := CLKENA ENABLE THE CLOCK TO DO ITS THING 
MOV CLKENA,@CLKCSR ; 
LET TIME := #0 
CLR TIME 
LET LINCNT := #0 
CLR LINCNT 
WHILE TIME LT PERIOD DO ; REPEAT UNTIL TIME EXHAUSTED 
CMP TIME ,PERIOD 
BGE 50252$ 
LET R5 := BNDPAT 
MOV BNDPAT , 
LET R3_:= WORK 
MOV WORK ,R3 
WHILE R3 GT #0 DO ; SEND R3 CHARACTERS 
TST R3 
BLE 50254$ 
WHILE #BIT7 NOTSETIN @LPCSR(R2) DO ; WAIT FOR READY 


#B1T7,@LPCSR(R2) 


ENDDO 
50255$ 
T @LPBUF(R2) :B= (R5)+ 
(R5)+, @L PBUF (R 


R3 - #1 ; DECRIMENT CHAR COUNTER 


; PUT DATA INTO BUFFER 


SEQ 0075 


CZLPLDO LP25, LP26, LPO? TEST 


PRINTING SPEED MEASUREMENT 


022322 005303 
2320 022324 
Ocsase 000764 


022326 005237 
22332 000751 


022334 
2323 022334 
022334 
2324 022334 
2325 
2326 
2327 
2328 
2329 022334 


23 
022334 023727 
622342 001020 


022344 005037 
022350 012746 
022354 012746 
022360 


022364 
2332 Oeeee 


2334 022404 012777 


013746 


02 
2339 022442 

022442 013746 

022446 012746 
2340 022452 004737 
2341 Oe 3 


022456 Onerrs 
022464 001001 


002276 


002322 000004 
002274 
024151 
000001 


000004 


000000 157714 


000003 


000010 


002276 
003161 
004550 


000200 002356 
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DEC R3 
ENDDO 
BR 50253$ 
502548: 
LET LINCNT := LINCNT + #1 
INC LINCNT 
ENDDO 


BR 50251$ 
50252$: 


—" 
TIF MANUAL PRINT SPEED TESTS HAVE BEEN PERFORMED INSURE PRINTERS ARE 
;BACK ON LINE WHEN DONE 
iF CLKTYP EQ #4 THEN 
CMP 


CLKTYP,44 
BNE 50257$ 
LET FLAG := y ;CLEAR <CR> FLAG 
CLR LAG 
PRINTF #RESTOR 
MOV #RESTOR,-(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP C$PNTF 
ADD #4 ,SP 
GMANIL READY,FLAG, 100000, YES ;WAIT FOR OPERATOR 
TRAP CSGMAN 
BR 10001$ 
«WORD FLAG 
-WORD TS$CODE 
«WORD READY 
-WORD 100000 
10001$ 
ENDIF 
50257$ 


#00, @CLKCSR 
> REPORT TOTAL NUMBER OF LINES PRINTED 
PRINTB #LINPER,LINCNT,LUNIT 
MOV P) 


MOV P,R 

TRAP C 

ADD #10,SP 

PUSH LINCNT , #OUTBUF +1 ; CONVERT LINE COUNT TO ASCII 
MOV LINCNT,~(SP) 

MOV WOUTBUE +1. ~(SP) 

JSR PC, ,BIN2DA 

WHILE #BIT7 NOTSETIN @LPCSR(R2) DO WAIT FOR READY 


50260$: 
BIT #B1T7 ,aLPCSR(R2) 
BNE 50261$ 


SEQ 0076 


| CZLPLDO LP25, LP26, LPO? TEST 


2342 


2343 


2587 


022466 
022466 


022470 
022470 


0 
023026 


023030 
023030 
023036 


023040 


024151 


000773 
004737 
004737 
004737 


023727 
001404 
023727 
001077 
004737 
013746 
012746 
004737 
004737 


004737 


000207 
012737 
000207 


000000 


RRRRERRVRRRRRREK 


NMOMAMNAMAWIO AUT 


PRINTING SPEED MEASUREMENT 


005544 
005544 


005544 


002322 
002322 


005544 
002266 
003161 
004550 
005544 


005544 


000001 


~~ 
— ot ot ss —s a ff) RS SQ SS SO 
AAABRAAAAMAGCAAQOWHS 


N 6 
SEQ 0077 
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000002 
000003 


002340 


oo0°0O-OoOo000->--— 
oP ae ee ee or or oe et ot OL 
MANA ATU UTUT UT OS 


oOo 
> 
ww 


50261$: 


50262$: 


50263$: 
RTS PC 


ENDDO 
BR 50260$ 


OUTPUI MOUTBUF ,46,,LUNIT 
JSR PC, QUIET 

JSR PC,QUIET 

OUTPUI #SPED1,#19.,,LUNIT : "LINES PRINTED" 
JSR PC, QUIET 

; IF A CLOCK WAS USED DISPLAY THE Wig, USED ALSO 
i CLKTYP EQ #2 OR CLKTYP EQ #3 T 


; DISPLAY LINE COUNT ON LP 


She #3 . 
50263$ si, . 


OUTPUI ASPED2,44,,LUNIT oe 

JSR PC QUIET 

PUSH PERIOD, #OUTBUF +1 ; CONVERT TIME TO ASCII 
PERIOD, -(SP) 
#OUTBUP +1 -(SP) 


JSR PC,BIN2DA 

OUTPUI #OUTBUF +3,43,,LUNIT ; 
JSR PC,QUIET 

OUTPUI #SPED3,48.,,LUNIT 


U 
JSR PC,QUIET 
ENDIF 


DISPLAY THE TIME IN SECONDS 
3 “'SECONDS** 


:GO BACK AND DO IT AGAIN 


: EXPECTED ERROR HANDLER 


iPERR2: LET ERRFLG := #1 SET ERROR FOUND 

MOV #1 ,ERRFLG 

RTS PC zAND EXIT 
BNDPAT: .WORD 0 ; CONTAINS ADDRESS OF PRINT PATTERN 
-NLIST BEX 
ASSOCIATED MESSAGES 
SPED1: .ASCII / LINES WERE PRINTED/ 
SPED2: Atti / IN / 
SPED3: .ASCI1I / SECONDS/ 
LINPER: .ASCIZ /%N%D3%A LINES PRINTED ON oc %D22N/ 
OFFLIN: .ASCIZ /2%NZAINSURE PRINTER(S) OFF LINE./ 
ONLIN1: .ASCIZ/%NSAPLACE LUNIT %D2%A ON LINE TO INITIATE TIME PERIOD FOR MANUAL / 
ONLIN2: .ASCIZ /%NXAPRINTING SPEED oe AND BACK OFF LINE TO TERMINATE/ 
ONLIN3: .ASCIZ /%NZATHE TIME INTERVAL .2N/ 
PRTSPD: .ASCIZ /PRINTING SPEED MEASUREMENT TEST ee) ah 
LPM64: .ASCIZ /%N%ZA64 CHARACTER BAND SHOULD PRINT AT 285 LPM. 2%N/ 
LPM96: .ASCIZ /2ZNZA96 CHARACTER BAND SHOULD PRINT AT 204 LPM. 2N/ 
L26M64: ASCIZ /%N%A64 CHARACTER BAND SHOULD PRINT AT 600 LPM. %N/ 
L26M96: .ASCIZ /%N%ZA96 CHARACTER BAND SHOULD PRINT AT 450 LPM. 2%N/ 
LO7M64: .ASCIZ /%N%A64 CHARACTER BAND SHOULD PRINT AT 1220 LPMZN/ 
LO7M96: .ASCIZ /%N%ZA96 CHARACTER BAND SHOULD PRINT AT 888 LPM.%N/ 
RESTOR: .ASCIZ /%NZACLEAR PRINTER(S) AND PLACE ON LINE.&N 





SEQ 0078 


| 
| 
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LP26, LPO7 TEST 


C7LPLDO 1°25, 


_ PRINTING SPEED MEASUREMEN 
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SEQ 0079 
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| CZLPLDO LP25, LP26, LPO7 TEST 
PRINT SPEED TEST PATTERNS 


| 
| 


OoOnnNKMOW 
mkt ~ wow 
-O —a a> 


2445 025135 


—™ 


-EVEN 
-LIST BEX 


CSETST 


TRAP 


ENDMOD 


2455 025256 


2462 025256 


oo 025256 
2481 OS 255 


0 
2482 025344 
02 


02 
2483 OS 2332 
2484 Oe 2308 


02 
2485 025364 

025364 
2486 Os 2375 
2487 053376 
2488 025376 


MMM NNN 
SRERRES 
NNNNNNN 
NOUEWN 
oO 

Mn 
Ww 
—~m 
uw 
oO 


0 
2489 peaess 


2490 025426 
2491 025432 
025432 


012737 
000402 
005237 


023727 
003107 


023727 
001004 
112737 
000403 


112737 


012704 


012737 
000402 


005237 


023727 
003017 


113724 
105137 


142737 


CZLPLDO LP25, LP26, LPO7 TEST 
DATA TRANSFER PATHS 


000001 


025676 
025676 


025676 


000125 


000077 


003160 
000001 


002304 
002304 
025636 
025636 
000200 


dD 7 
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025676 


000002 


000001 


025636 


025636 


002304 


000102 


025636 


.SBTTL DATA TRANSFER PATHS 
eine 


STHIS TEST CHECKS THE DATA TRANSFER 
[PATHS FROM THE PROCESSOR INTERFACE 
7TO THE PRINTER OUTPUT. AN ALTERNATING 


SFULL 132 COLUMNS. AFTER 16 LINES OF 

THIS PATTERN, THE OUTPUT PATTERN IS 

> SWITCHED TO. AN ALTERNATING PATTERN 

M6 ues AND '‘a’’ CHARACTERS FOR ANOTHCR 
L 


SGNTST 5 
15: 


;PRINT TEST IDENTIFICATION 

OUTPUT #DATPTH, 429. 

;PRINT ALTERNATING STRINGS OF CHARACTERS 
INCR nee FROM #1 TO #2 BY #1 


#1,PATTERN 
BR 502648 
50265$: 
NC PATTERN 
50264$: 
CMP PATTERN, #2 
BGT 50266$ 
IF PATTERN EQ #1 THEN 
CMP PATTERN,#1 


BNE 50267$ 
LET CHAR :B= #'U 
MOVB #°U, CHAR 


ELSE 
BR 50270$ 
50267$: 
LET CHAR :B= #'? 
MOVB.  #"?,CHAR 
ENDIF 
502708: 
Ler R4 := #OUTBUF | 
#OUTBUF 
Ther i, FROM in — #66. BY #1 
MOV CCNT 
BR £05518 
502728: 
INC CCNT 
502718: 
CMP CCNT, #66. 
BGT 50273$ 


LET (R4)+ :B= CHAR 
MOVB oe (R4)+ 

COMB CHA 

LET ae :B= I sears CLR.BY #200 
BICB 7200. CHAR 


SEQ 0080 


— CZLPLDO LP25, LP26, LPO7 TEST 
| DATA TRANSFER PATHS 


2492 025440 

025440 
2493 025444 
2494 OS 2420 


2495 OSet ge 


2496 OS2cep 
2497 BSeeee 
2498 OSe25y 


02 
2499 025514 
2500 BS3 320 


025556 
025560 
2501 025560 
025560 
025562 
2502 025562 
025562 
2503 025570 
2504 025632 
025632 
025634 
2505 
2506 0256 


2514 

2515 025700 
025700 

025700 

2516 

2517 025702 


113726 
105137 


142737 
000753 


112724 
112714 
012737 
000402 
005237 
023727 
003022 
000750 
000663 
112737 
104432 
000044 

000 

104 


000000 


104401 


025636 
025636 


900200 


000015 
000012 
000001 


002276 
002276 


000014 


101 


—E 7 
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025636 


002276 


000020 


003160 


124 


LET (R4)+ :B= CHAR 
MOVB CHAR, (R4) + 


COMB CHAR 
LET CHAR :B= CHAR CLR.BY #200 


BICB #200, CHAR 
END INC 
50272$ 
50273$: 
LET (R4)+ :B= #15 
MOVB #15, (RS)+ 
LET (RG) :B= #12 
MO #12,(R4) 
INCR LINCNT FROM #1 TO #16. BY #1 
MOV #1,LINCNT 
BR 50274$% 
502758: 
= INC LINCNT 
502748: 
CMP LINCNT 416. 
BGT 50276$ 
OUTPUT MOUTBUF, 4134. 
END INC 
BR 50275$ 
50276$: 
END INC 
RR 50265$ 
50266$: 
LET OUTBUF :B= 414 
MOVB #14,OUTBUF 
OUTPUT #OUTRUF, #1 
EXIT TST 
TRAP CSEXIT 
.- WORD L10014-. 


-NLIST BEX 
CHAR: . WORD 
DATPTH: .ASCIZ /DATA TRANSFER PATHS TEST 5/ <12><12><12> 
PATTERN: ~WORD 0 
EVEN 

-LIST BEX 
ENDTST 
L10014: 

TRAP CSETST 


ENDMOD 


CZLPLDO LP2S, LP26, LPO? TEST 
PRINTABLE CHARACTERS 


2519 
2520 025702 
2521 


2507 
2528 025702 
025702 
2529 02570¢ 
2530 
2531 
2532 
2533 025744 
025744 012737 000040 
025752 000402 
025754 005237 003154 
025760 023727 003154 
025766 003045 
2536 025770 
025770 012704 003160 
2535 025774 
025774 012737 000001 
026002 000402 
026004 005237 002302 


026010 023727 002302 
026016 003003 


026020 113724 003154 
026024 000767 


026026 112724 000012 
2540 026074 004737 005544 
02100 000725 


2549 026102 
026102 005037 003154 
6106 


026106 013737 002012 
026114 005337 003156 


.¥ 
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003154 


000137 


002302 


000204 


003156 


.SBTTL PRINTABLE CHARACTERS 
BGNMOD 


++ 


* THIS TEST WILL PRINT A FULL LINE OF EACH PRINTABLE CHARACTER. 


< BAND TYPE 1S CHECKED ON A UNIT BY UNIT BASIS 
: UNITS WITH 96 CHAR BAND WILL BE SENT THE CHARACTER CODES : 
: 140(8) THRU 176(8). 


BGNTST 6 

OUTPUT #PRTCHR, #30. ; PRINT TEST ID 
: PRINT ALL UPPER CASE CHARACTERS ON ALL UNITS 
: INCR WORK. FROM #60 TO #137 BY #1 


ORK 
aR. 50277$ 
50300$: 
INC WORK 
50277$: 
CMP WORK , #137 
BGT 50301$ 


LET RG := #OUTBUF 
MOV #OUTBUF ,R4 
INCR COUNT FROM #1 TO #132. BY #1 


MOV #1,COUN 

BR 503028 
50303$: 

INC COUNT 
50302$: 

CMP COUNT ,#132. 

BGT 50304$ 


LET (R4)+ :B= WORK 
MOVB WORK , (R4) + 
END INC 
BR 50303$ 


50304$: 
LET (R4)+ :B= #LF 
MOVB ALF, (RS)+ 
OUTPUT MOUTBUF ,#133. 
JSR PC,QUIET 
END INC 
BR 50300$ 
50301$: 


* NOW DO ALL THE LOWER CASE CHARACTERS ON THOSE UNITS 
* EQUIPPED WITH 96 CHARACTER BANDS. 


: FIRST DETERMINE IF ANY UNITS HAVE 96 CHAR BANDS 
[ET WORK := #0 : COUNTER FOR 96 CHAR UNITS 
LR WORK 
LET WORK: = LSUNIT - #1 : GET UNIT COUNT 
V 


i LSUNIT, WORK 
DEC WORK 1 


SEQ 0082 


G 7 
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SEO 0083 
- CZLPLDO LP25, LP26, LPO? TEST 


PRINTABLE CHARACTERS 


2551 026120 
026120 


INCR vet FROM #0 Hs WORK? BY #1 


261 005037 002314 LUN 
026124 000402 hy 50305$ 
926126 503068: 
026126 005237 002314 INC LUNIT 
026132 50305$: 
026132 023737 002314 003156 (MP LUNIT,WORK1 
926140 003012 BGT 50307$ 
2552 026142 LET R2 := LUNIT SHIFT 1 
026142 013702 002314 MOV LUNIT,R2 
026146 006302 ASL R 
2553 026150 IF #FLAG96 SETIN STATUS(R2) THEN ; IS THIS UNIT 96 CHAR ? 
026150 032762 010000 002512 BIT #FLAG96, STATUS (R2) 
026156 001402 BEQ 50310$ 
2554 026160 LET WORK := WORK + #1 : YES ADD 1 TO COUNT 
026160 005237 003154 INC wORK 
2555 026164 ENDIF 
026164 503108: 
2556 026164 END INC 
026164 000760 BR 50306$ 
026166 50307$: 
2557 026166 IF WORK EQ #0 THEN : ANY 96 CHAR UNITS ? 
026166 005737 003154 TST wORK 
026172 001026 BNE 50311$ 
2558 026174 LET OUTBUF :B= #14 
026174 112737 000014 003160 MOVB #14, OUTBUF 
2559 026202 OUTPUT #OUTBUF , #1 
2 026244 EXIT TST : ALL UNITS 64 CHAR...EXIT 
026244 104432 TRAP CSEXIT 
026246 000330 .WORD 110015-. 
2561 026250 ENDIF 
026250 50311$: 
541 : SETUP FOR LOWER CASE CHARACTERS DISPLAY 
2564 026250 INCR WORK FROM #140 10 #176 BY #1 
026250 012737 000140 003154 MOV #140, WORK 
026256 000402 BR 503128 
026260 50313$: 
026260 005237 003154 NC WORK 
026264 50312$: 
026264 023727 003154 000176 CMP WORK ,#176 
026272 003073 AGT 50314$ 
2565 026274 LET R4 := #OUTBUF 
026274 012704 003160 MOV MOUTBUF ,R4 
2566 026300 INCR COUNT FROM #1 TO #132. BY #1 
026300 012737 000001 002302 MOV COUNT 
26306 000402 BR S0si5$ 
026310 503168: 
026310 005237 002302 INC - COUNT 
026314 50315$: 
026314 023727 002302 000204 CMP COUNT #132. 
026322 003003 BGT 50317$ 
2567 026324 LET (R4)+ :B= WORK 
026324 113724 003154 VB WORK, (R4) + 
2568 026330 END INC 
026330 000767 BR 50316$ 
026332 503178: 


C7LPLDO LP25, LP26, LPO? TEST 
PRINTABLE CHARACTERS 


2569 026332 

026332 112724 000012 
2570 026336 

026336 013737 002012 

026344 005337 003156 
2571 026350 

026350 005037 002314 

026354 000402 

026356 005237 002314 


026362 023737 002314 
026370 003031 


026372 013702 002314 
i 006302 

026400 032762 010000 

0626406 001421 


026452 000741 
2577 026454 004737 005544 
000677 


026462 112737 000014 


026532 104432 


026534 000042 
2582 
2583 026536 120 122 
2584 
2585 
586 026576 
026576 


026576 104401 
2587 
2588 026600 
2589 


H 7 
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SEQ 0084 


LET (R4)+ :B= @LF 
MOVB MLE, (RG)+ 
LET WORK1 := LSUNIT = #1 


003156 MOV LSUNIT ,WORK1 
DEC WORK 
INCR LUNIT FROM #0 TO WORK? BY #1 
CLR LUNIT 
Be 503208 
503218: 
nye LUNIT 
503208: 
003156 CMP LUNIT ,wORK1 
BGT 503228 


LET R2 := LUNIT SHIFT 1 
MOV hens 


IF #FLAG96 SETIN STATUS(R2) THEN 
002512 BIT #FLAGI6, STATUS (R2) 
BEC 50323$ 
ee #OUTBUF ,4133.,,L.UNIT 


503238: 
END INC 
50321$ 


JSR PC,QUIET ; WAIT FOR ALL DONE 
END INC 
R 50313$ 


50314$: 
LET OUTBUF :B= #14 
003160 MOVB #14 ,O0UTBUF 
OUTPUT MOUTBUF 41 ; EXECUTE TOF 

EXIT TST 
TRAP CSEXIT 
-WORD 110015-. 

.NLIST BEX 

111 PRTCHR: “Ty /PRINTABLE CHARACTERS TEST 6/ <12><12><12> 

EVEN 


50322$: 


* TRAP CSETST 
LLIST BEX 
ENDMOD 


CZLPLDO LP25, LP26, LPO? TEST 
NON=PR 


INTABLE CHARACTERS 


92 
_ 2593 026600 


o a 
© 


012704 
012737 


005037 
000402 


005237 


023737 
003061 


012703 


012737 
000402 


005237 


023727 
003002 


112423 
000770 


012737 
000402 


027721 
000033 


002276 


002276 
002276 


003160 


000001 


003154 
003154 


000001 


I 7 
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003156 


003156 


003154 


000010 


003154 


0 
2620 
5623 : 
565% 026732 
026732 
056740 


.SBTTL NON=PRINTABLE CHARACTERS 

BGNMOD 

- ++ 

ZTHIS TEST CHECKS FOR DETECTION OF ALL NON-PRINTABLE CHARACTERS. 

TEACH CHARACTER WILL APPEAR ON THE PRINTER OUTPUT IN THE FORM OF ITS OCTAL 
CODE ACCOMPANIED WITH ITS MNEMONIC. 

3123 OF THE TESTED CODE ARE THEN SENT. 


zALSO,ON PRINTERS WITH 64 CHARACTER BANDS,IT CHECKS TO 
“MAKE SURE THAT CODES 140 THRU 177 ARE CONVERTED TG CODES 100 THRU 137. 


BGNTST 7 
: INDICATE TEST CURRENTLY BEING DONE 


OUTPUT #NONCHR #71. 
LET R4 := ANONBUF 


MOV 
LET WORK] := #27. 
MOV #27. ,WORK1 


; DO ONE LINE FOR EACH TABLE ENTRY 
INCR LINCNT FROM #0 TO WORK! BY #1 
CLR LINCNT 
BR 50324$ 
50325$: 
INC LINCNT 
50324$: 
CMP LINCNT ,WORK1 
50326$ 


BGT 
LET R3 := #OUTBUF 
MOV #OUTBUF ,R3 


> MOVE CODE AND MNEMONIC TO PRINT BUFFER 
: INCR WORK FROM #1 TO #8. BY #1 
#1, WORK 


MOV . 

BR 50327$ 
50330$: 

INC WORK 
503278: 


CMP WORK , 48. 
BGT 50331$ 
LET (R3)+ :B= (R4)+ 
VB (R4)+,(R3)+ 
END INC 
BR 50330$ 
50531$: 


PUT 120 BYTES OF CODE INTO PRINT BUFFER 
INCR WORK FROM #1 TO #123. BY #1 

MOV #1, WORK 

BR 50332$ 


SEQ 0085 


_ NON=PRINTABLE CHARACTERS 


CZLPLDO LP25, LP26, LPO7 TEST 


026742 


027110 
027112 


005237 
ssi 
111423 
000770 


112723 
112723 


005204 
000711 


012703 


012704 
000401 


005204 


020427 
003002 


110423 
000772 


112723 


013737 
005337 


005037 
000402 


003154 
003154 


000015 
000012 


003160 
000140 


000177 


000012 


002012 
003154 


002314 


J 7 
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000173 


003154 


503338: 


503328: 
CMP WORK ,#123. 
BGT 50334$ 
LET (R3)* :B= (RS) 
MOVB (RG), (R3)+ 
END INC 
50333$ 
503348: 


* FOLLOWED BY CRLF 


LET (R3)+ :B= #15 
MOVB #15,(R3)+ 

LET (R3)+ :B= #12 
MOVB #12,(R3)+ 


> PRINT LINE OF OCTAL CODE, MNEMONIC, AND 120 BYTES(NONFRINTABLE CODE) 


OUTPUT M#OUTBUF 4133. 
LET R4 := R4 + #1 


50325$ 
50326$: 


; UNITS WITH 64 CHAR BAND SHOULD STRIP BIT 6 OF DATA 
: AND PRINT THE DATA FOR CODES 140(8) THRU 177(8) 

: AS IF CODES 100(8) THRU 137(8) WERE RECIEVED. 

; **NOTE** DELETE IS PRINTED AS UNDERSCORE '‘_* 


LET R3 := #OUTBUF 

MOV #OUTBUF ,R3 

INCR R4& FROM #140 TO #177 BY #1 
MOV #140,R4 


BR 50335$ 
503368: 

INC R4 
50335$: 

CMP R4 #177 

BGT 503378 

LET (R3)* :B= R4 : FILL BUFFER WITH CODES & LF 

MOVB. RG, (R3)+ 

END INCR 

BR 50336$ 
50337$: 


LET (R3)+ :B= #LF 

MOVB #LF ,(R3)+ 

LET WORK := L$UNIT - #1 ; SEND MSG AND BUFFER TO ALL 
MOV LSUNIT , WORK 


DEC WORK 
INCR LUNIT FROM #0 TO WORK BY #1 ; UNITS WITH 64 CHAR BAND 
CLR LUNIT 

BR 503408 

503418: 


SEQ 0086 


" CZLPLDO LP25, _?26, LPO7 TEST 


| NON=PRINTABLE CHARACTERS 


027112 
027124 
2652 027126 
027126 
027132 
2653 027134 
027134 
027142 
2654 027144 
2655 027206 
2656 027250 
2657 027312 
027312 
2658 027312 
027312 


» 2) 
Oo 
Las) 
N 
W 
— 


2668 
2669 027616 
2670 027714 


1 
2672 027721 


2676 027765 
2677 027776 


2694 030227 


005237 


023737 
003073 
013702 
006302 


032762 
001063 


000677 
112737 


104432 
000730 


002314 
002314 


002314 


010000 


000014 


K 7 


SEQ 0087 
MACRO M1113 30=DEC-80 09:36 PAGE 32-2 
INC LUNIT 
503408: 
003154 CMP LUNIT ,WORK 
BGT 50342 
LET R2 := LUNIT SHIFT 1 
MOV LUNIT,R2 
ASL R2 
IF #FLAG9I6 NOTSETIN STATUS(R2) THEN 
002512 BIT #FAG9I6, STATUS (R2) 
BNE 50343$ 
OUTPUI #AUTSEC,477.,,LUNIT 
OUTPUI #AUTCON,461.,,LUNIT 
OUTPU! #OUTBUF ,433.,,LUNIT 
ENDIF 
50343$: 
ENDINCR | 
BR 50341$ 
50342$: 
LET OUTBUF :B= #14 
003160 MOVB 414, OUTBUF _ 
OUTPUT #OUTBUF ,#1 
EXIT TST ;AND EXIT TEST 
TRAP CSEXIT 
WORD L10016-. 


“CHARACTER BUFFER AND TEST HEADER MESSAGE 
*NLIST BEX 
. A 





116 NONCHR: SCII /NON-PRINTABLE CHARACTERS TEST 07/<12> 
106 .ASCIZ /A FULL LINE OF EACH CODE WILL BE SENT/<12> 
111 AUTSEC: .ASCIZ /THIS SECTION CHECKS AUTOMATIC CONVERSION ON PRINTERS WITH 64 CHARACTER BAND 
104 AUTCON: .ASCIZ /CODES 140(8) ..177(8) SHOULD BE CONVERTED TO 100(8)..137(8)/<12><i2> 
012 SKIP3: ASCIZ <15><12><12><12> : 
060 NONBUF ASCII / 000 NUL/<0> 
060 -ASCII / 001 SOH/<1> 
060 ASCII / 002 STX/<2> 
060 ASCII / 003 ETX/<3> 
060 -ASCII / 004 EOT/<4> 
0 ASCII / 005 ENQ/<5> 
0 -ASCII / 006 ACK/<6> 
060 ASCII / 007 BEL/<7> 
061 ASCII / 010 BS /<10> 
061 -ASCII / 011 HT /<11> 
061 ASCII / 016 SO /<16> 
061 ASCII / 017 SI /<17> 
2 ASCII / 020 DLE/<20> 
062 ASCII / 021 XON/<21> 
2 ASCII / 022 DC2/<22> 
062 ASCII / 023 XOF/<235> 
062 ASCII / 024 DC4/<24> 
062 ASCII / 025 NAK/<25> 
062 ASCII / 026 SYN/<26> 
2 ASCII / 027 ETB/<27> 
063 -ASCII / 030 CAN/<30> 
063 ASCII / 031 EM /<31> 
063 ASCII / 032 SUB/<32> 


! “ ee = 
Se 
SEQ 0088 


CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30-DEC-80 09:36 PAGE 32-3 
NON=PRINTABLE CHARACTERS 


| 
| 
2695 030240 040 060 063 ASCII / 033 ESC/<33> 
2696 030251 040 060 063 ASCII / 034 FS /<34> 
2697 030262 040 060 063 ASCII / 035 GS /<35> 
| 2698 030275 040 060 063 ASCII / 036 RS /<36> 
2699 030304 040 060 063 rit / 037 US /<37> 
| 2701 
2702 -LIST BEX 
2703 030316 ENDTST 
030316 L10016: 
030316 104401 TRAP CSETST 


2704 
2705 030320 ENDMOD 
2706 





CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30-DEC-80 09:36 
PATTERN 


_ BAND 


2708 
2709 030320 
2710 


2735 
2736 | 


2737 | 
2738 030320 
030320 


| 
| 
27 
27 
273 
273 
2733, 030320 
\ 030320 


2748 030376 
030376 
2749 0304604 
030404 


000014 


012746 


105037 
112737 
105037 
113737 
105037 
112737 
105037 


031652 
000001 


000004 


002270 


032166 
000043 
032304 
000043 
032422 
000043 
032544 


032172 


032311 


032426 


.SBTTL 
BGNMOD 


M 
PAGE 33 


BAND PATTERN 


3 +4 
BAND PATTERN TEST 
‘THIS TEST ONLY EXECUTES ON LP25 OR LP26. IT DOES NOTHING ON LPO7. 


THIS TEST PRO 


QUADRANT NO.1 
QUADRANT NO.3 


QUADRANT NO.1 


7 


DUCES AN IMAGE OF THE ENTIRE BAND PATTERN. THE PRINT-OUT 
3S 2 agama TO LOCATE THE FOUR QUADRANTS OF THE 


BAND IN THE FOLLOWING 


QUADRANT NO. 2 
QUADRANT NO.4 


ETC. 


*THE REASON FOR THIS ARRANGEMENT I3 TO FACILITATE VISUAL INSPECTION 
7OF THE PRINTOUT AS WELL AS TO ACCOMODATE THE 208 CHARACTERS OF THE BAND 


IN 132 


BGNTST 8. 

T8:: 

TOF = 014 

: PRINT TEST IDENTIFICATION ON 
PRINTF #NOO7 
MOV #NO007,-(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP CSPNTF 
ADD #4 ,SP 


* SETUP 


COLUMNS. 
STATUS(R2) FLAGI6 
SOFTWARE SWITCH USA 


PATTERNS FOR EUROPEAN 
IF USA NE #0 THEN 
TST USA 


S 
BEQ 03448 
LET BP6402+18. :B= 
C 6402+18. 
LET 6402+22 = 
MO #43,BP6402+22 
LET BP6403+35. = 
RB BP6403+35. 
LET BP64Q3+40. = 
MOV 43,BP6403+40 
LET BP6404+53. :B= 
CLRB BP6404+53 
LET BP6404+57. :B= 
VB #43,BP6404+57. 
LET BP9602+13. :B= 


CLRB BP9602+15. 


=1 FOR 96 CHAR BAND 

=0 FOR 64 CHAR BAND 

=1 FOR AMERICAN PRINT SET 
=0 FOR BRITISH PRINT SET 


ALL UNITS 


OR AMERICAN PRINTERS 
; AMERICAN, PRINT SHARP SIGN ‘4 


SEQ 0089 


Se ay A a Sh LP26, LPO7 TEST 


2750 0304 
2751 0304 
2752 08022 
2753 0 

0 


—_———— 
| 
2754 030432 
2755 sere 
2756 030444 
2757 Benet 
2758 Renee 
2759 030464 
030464 
2760 030470 
030470 
2761 Benete 
2762 030502 
2763 030510 


030514 


2768 030514 
30514 


0 

2770 RaneeS 
0 

2771 030550 


2772 030560 
2773 030622 
30622 


= oo 
State 
yw 

Oo 


i 


112737 
105037 
112737 
000431 


| 112737 


105037 
112737 
105037 
112737 
105037 
112737 
105037 
112737 
105037 


013701 
005301 


005037 
000402 


005237 


023701 
003162 


013702 
006302 
032762 
001152 


032762 
25 


000043 
032735 
000043 


000043 
032172 
000043 
032311 
000043 
032426 
000043 
032551 
00004 3 
032742 


002012 


002314 


002314 
002314 


002314 


002000 


001000 
002000 


N 7 
SEQ 0090 


MACRO M1113 30=DEC-80 09:36 PAGE 33-1 


032551 


032742 


032166 


032304 


032422 


032544 


032735 


002512 


002512 
002512 


LET BP9602+18. :B= #43 


VB #63, BP9602+18. 
LET BP9604+13. :B= #0 
CLRB BP9604+13. 
LET BP9604+18. :B= #43 
MOVB #43,BP9604+18. 
ELSE ; EUROPEAN, PRINT POUND STERLING SIGN 
BR 50345$ 
50344$: 
LET BP6402+18. :B= 443 
vB #43,BP6402+18. 
LET BP6402+22. :B= 40 
CLRB BP6402+22. 
LET BP6403+35. :B= 443 
VB #43 ,BP6403+35. 
LET BP64Q3+40. :B= 40 
CLRB BP6403+40. 
LET BP6404+53. :B= 443 
VB #43 ,BP6404+53. 
LET BP6404+57. :B= 40 
CLRB BP6404+57. 
LET BP9602+13. :B= #43 
#43,BP9602+13. 
LET BP9602+18. :B= #0 
CLRB BP9602+18. 
LET BP9604+13. :B= #43 
#43 ,BP9604+13. 
LET BP9604+18. :B= #0 
CLRB BP9604+18. 
ENDIF 
50345$: ; 
3; PRINT PROPER. BAND IDENTIFICATION MSG. ON EACH PRINTER 
LET R1 := LSUNIT - #1 
MOV LSUNIT,R1 
DEC R1 
INCR LUNIT FROM #0 TO R1 BY #1 
CLR LUNIT 
BR 503468 
50347$: 
INC LUNIT 
50346$: 
; CMP LUNIT,R1 
BGT 50350$ 
LET R2 := LUNIT SHIFT 1 
MOV LUNIT,R2 
ASL R2 
IF #FLAGO7 NOTSETIN STATUS(R2) THEN 
BIT #FLAGO7, STATUS(R2) 
BNE 50351$ 
OUTPU] #BNDTST,423.,,LUNIT 
IF #FLAG26 NOTSETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(R2Z) THEN 
BIT #FLAG26, STATUS (R2) 
BNE 5035 
BIT #FLAGO7, STATUS (R2) 
BNE 50352$ 





BAND PATT 


774 030642 
775 030704 


030704 
2776 930704 
030704 





2778 030766 
030766 
2779 030766 
030766 
30774 


0 
2780 030776 
2781 22 op 


RR 
mo 


030722 
2777 030724 


< 


nN 

“N 

g 
lelolelelelea} 
WY! NINA 
aed ed eh oe ed ea 
a oad enh cath ad ea 
KRERRERR 





032762 
001425 
032762 
001021 


032762 
001422 


000421 


000611 


012737 
005037 
000402 
0052357 


023701 
003105 


013702 
006302 


032762 
001075 


032762 
001022 
000447 


032762 
001022 


001000 002512 
002000 902512 


010000 002512 


000016 002276 


002314 


002314 
002314 


002314 


002000 


010000 


003000 


002512 


002512 


002512 


503528: 


50353$: 


503548: 


50355$: 
50351$: 


50350$: 


B 8 
SEQ 0091 


CZLPLDO ree LP26, LPO7 TEST MACRO M1113 30-DEC-80 09:36 PAGE 33-2 


Speen #BPID25,46,,LUNIT ; PRINTER IS LP25 


END 


IF #FLAG26 SETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(R2) THEN 
on spectattatatee 


#FLAGO7, STATUS (R2) 
503538 


a #BPID26,46,,LUNIT ; PRINTER IS LP26 


ENDI 


IF #FLAG96 SETIN STATUS(RZ) THEN 
Sisrre.saneee: 


50354$ 
#BPI6ID,A22.,,LUNIT 


OUTPUI 
ELSE 
50355$ 


OUTPU] #BP641D,422.,.LUNIT 
ENDIF 


ENDIF 
END INC 
BR 


50347$ 


+ NOW PRINT 2_LINE PATTERN 15. TIMES, WITH BLANK LINE BETWEEN PATTERNS 


2$: 


LET LINC 
MOV 


CLR 


BR 
50357$: 


50356$: 


50362$: 


NT := #14, 
#14. ,LINCNT 
vena FROM #0 TO R1 BY #1 ; PRINT QUADRANTS 1 & 2 
50356$ 
LUNIT 
LUNIT,R1 
50360$ 
LET R2 := LUNIT SHIFT 1 ; INDEX INTO STATUS TABLES 
; IT,R2 
IF #FLAGO7 NOTSETIN STATUS(R2) THEN 
#FLAGO7, STATUS (R2) 
50361$ 
IF #FLAG96 NOTSETIN STATUS(R2) THEN 
#F LAGI6, STATUS (R2) 
50362$ 
OUTPU! #8P6401,4121..,LUNIT ; 64 CHAR PATTERN 
50363$ 


IF #FLAG26!FLAGO7 NOTSETIN STATUS(R2) THEN 
Ane tteaeahcrleaeteer 


OUTPUI #BP9603,4121.,.LUNIT ; LP25 96 CHAR PATTERN 


Cc 8 


SD 


SEQ 0092 
CZLPLDO LP2S. LP26, LPO? TEST MACRO M1113 30=DEC-80 09:36 PAGE 33-3 
BAND PATT 
2799 031300 ELSE 
031300 000421 BR 50365$ 
031302 503648: 
2800 931302 OUTPUI #8P9601,4121.,,LUNIT : LP26 96 CHAR PATTERN 
2801 031344 ENDIF 
031344 503658: 
2802 031344 ENDIF 
031344 503638: 
2803 031344 ENDIF 
031344 503618: 
2804 031344 END INC 
031344 000666 BR 503578 
031346 503608: 
2805 NOW DO QUADRANTS 3 & 4 
2806 031346 INCR LUNIT FROM #0 TO R1 BY 41 ; REPEAT FOR ALL UNITS 
031346 005037 002314 CLR LUNIT 
031352 000402 BR 503668 
031354 503678: 
631354 005237 002314 INC —LUNIT 
031360 503668: 
031360 023701 002314 (MPs LUNIT,R1 
031364 003057 BGT 503708 
2807 031366 LET R2 := LUNIT SHIFT 1 : INDEX INTO STATUS TABLES 
0 013702 002314 Mov _—LUNIT,R2 
031372 006302 ASL R2 
2808 031374 IF #FLAGO7 NOTSETIN STATUS(R2) THEN 
031374 032762 002000 002512 BIT _ #FLAGO7, STATUS (R2) 
031402 001047 BNE 503718 
2809 031404 IF #FLAG96 NOTSETIN STATUS(R2) THEN 
031404 032762 010000 002512 BIT  #FLAG96, STATUS (R2) 
031412 001022 BNE 503728 
2810 031414 OUTPUI #BP6403,4122.,,LUNIT ; 64 CHAR PATTERN 
2811 031456 LSE 
031456 000421 BR 503738 
031460 503728: 
812 031400 OUTPUI] #BP9603,4122.,,LUNIT ; 96 CHAR PATTERN 
2813 031522 ENDIF 
031522 503738: 
2814 031522 ENDIF 
031522 503718: 
2815 031522 END INC 
031522 000714 BR 503678 
031524 503708: 
2816 031524 LET LINCNT := LINCNT - #1 
031524 005337 002276 DEC LINCNT 
2817 031530 001402 BEQ 
2818 031532 000137 031114 IMPS 
2819 031536 3$: 
2821 : DO TOF THEN EXIT ON ALL UNITS EXCEPT LPO7'S 
2822 031536 LET #OUTBUF :B= #14 
031536 112727 000014 003160 MOVB #14, OUTBUF 
2823 031544 INCR LUNIT FROM #0 TO R1 BY #1 
031544 005037 002314 CLR 
031550 000402 BR 503748 
031552 503758: 


031552 005237 002314 INC LUNIT 


C7LPLDO LP25, LP26, LPO7 TEST 


| 

| BAND PATTERN 
031556 
031556 


031562 
2824 031564 
031564 


031570 
2825 031572 
31572 


0 
631650 


1 
2832 031652 
oth 031731 


28 
2837 032022 
38 


2841 032050 
2842 032060 
2843 032112 


2845 032144 
2846 032154 
2847 032206 


2849 032241 
2850 032251 
2851 032303 


2 
2853 032335 


2854 032345 
Sae2 032377 


8 
2859 032433 


— aed 
WFSSS% Eu 


oO 
N 


SRO 


No 


002512 


134 


040 

2860 

2861 032475 126 127 
2862 032522 
2863 032523 
2864 032526 
2865 

2866 032527 
2867 032537 
2868 032545 


50374$: 


50377$: 


50376$: 

EXIT TST 
TRAP 
. WORD 

-NLIST BEX 

NOO7: -ASCIZ 

ASCII 


BP641D: .ASCII 
BP96ID: .ASCII 


MACRO M1113 30=DEC-80 09:36 PAGE 33-4 


LUNIT,R1 
50376 
LET RD = LUNIT SHIFT 1 
LUNIT, R2- 
1F #FLAGO7 NOTSETIN STATUS(R2) THEN 
#FLAGO7, STATUS (R2) 
50577$ 
OUTPUI #0UiBUF ,41,,LUNiT 
ENDIF 


50375$ 


CSEXIT 
L10017-. 


/X%NZABAND PATTERN TEST a NOTHING ON LPO7*S2N/ 


/BAND PATTERN TEST 08 

/LP25 /. 

/LP26 / 

/64 CHAR BAND PATTERN/<12><12> 
/96 CHAR BAND PATTERN/<12><12> 


3; 64 CHAR BAND PATTERN LP25 & LP26 


BP6401: .ASCII 
ASCII 

“ASCII 

BP6402: .ASCII 
“ASCII 

"ASCII 

BP6403: .ASCII 
“ASCII 

“ASCII 

BP6404: .ASCII 
“ASCII 

"ASCII 

+ 96 CHAR BAND 
BP9601: ASCII 


BP96Q2: rai 


/ / 
/ ABE CDTF GOHI J 1KL2MN30P40RS5/ 
/UVOWX7YZ8_+%9B) * (2 ,/<57>/$~; ><./ 


/ / 
/2ME JCT\' 0*H=1 ! #2 “A3BC4DF G5S/ 
/H]16JK7LM8NOP9OR*SU, VW-XYZ./<12> 


/ / 
J +E%BT) (0: /<57>/$12>2<23aI)40\''5/ 
/*#6=!7#' BABCODF *GH, IJ-KLM./ 


/ 
/NOEPOTRSOUWWIXY27, a 


_:/6$; 7><8 2a) 9[\*'™ ==!" _<12><12> 


LP25 = Q3..04 LP26 = Q1..04 


/ / 

/ABCDOEF G1HIJ2KLMN3OPQ4RST5/ 
LY ROOE,, PORES ha feDr i eege 
/<?a/ 

164 


/ / 
/JO\"",&/ 
174 


SEQ 0093 


SEQ 0094 
CPLPLDO LEE LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 33-5 


| BAND 

2869 032546 075 052 041 LASCI] /=*!#'=/ 

2870 037554 175 17 176 "BYTE 175,173,176,136,56, 177-140, 141,60, 142,143, 144,61 
2871 032571 146 147 150 .BYTE  146,147,150.151,62, 152, 153,154,63,1595,156 

2872 032604 157 064 160 [BYTE °157.64, 160,161,162, 163,65, 165, 166, 167,66 

2873 032617 170 171 172 "BYTE 170.171,172,67.12 

2875 032624 040 040 040 BP9603: .ASCII / / 

2876 032634 101 102 103 "ASCII /ABCDBEFGSHIJ/ 

2877 032650 145 “BYTE 145 

2878 032651 112 114 115 "ASCII = /KLMN/ 

879 032655 164 "BYTE 164 

2880 032656 117 120 121 "ASCII. /OPQ,RST*/ 

288) 032666 125 126 127 ASCII /UVWX=YZ_.$%80) (:/<57>/1+#; >2<2@3/ 

2883 032720 040 040 040 BP9604: .ASCII / / 

884 032730 135 133 134 "ASCII «/JC\'GM/ 

2885 032736 174 "BYTE 174 

886 032737 075 065 041 "ASCII /=5!#°6/ 

2887 032745 175 173 176 "BYTE 175.173,176,136,67,177,140,141,70,142,143, 144,71 
2888 032762 146 147 150 "BYTE 146 .147.150.151.145, 152,153,154, 164,195,196,157 
2889 032776 054 160 161 "BYTE 54,160,161, 162, 163,52, 165, 166,167,55,170 

2890 033011 171 172 056 "BYTE 171,172,56.12,12 

2891 .LIST BEX 

2892 “EVEN 

2893 033016 ENDTST 

033016 110017: 
033016 104401 TRAP CSETST 
2894 033020 ENDMOD 





po 


F 8 


SEQ 0095 
CZLPLDO LP25, LP26, kP07 TEST MACRO M1113 30=DEC-80 09:36 PAGE 34 
SPURIOUS HAMMER F 
2896 .SBTTL SPURIOUS HAMMER FIRING 
2898 033020 BGNMOD 
2899 
2901 THE PURPOSE OF THIS TEST IS TO DETECT SPURIOUS HAMMER FIRINGS AND DEFECTIVE 
2902 HAMMER DRIVERS DURING THE OPERATION OF THE LINE PRINTER. THE PROGRAM 
2903 ‘PRODUCES A LEFT WEDGE PATTERN CONSISTING OF 132 LINES OF PRINT WITH EACH 
2904 “LINE BEGINNING WI7H A ''?'' CHARACTER, ANY POINT OUTSIDE THE WEDGE 
2905 ; BOUNDARIES IS CAUSED BY HAMMER MISFIRES OR BY HAMMER BOUNCE. 
2907 
2908 033020 BGNTST 9. 
033020 T9:: 
2909 
910 :PRINT THE TEST HEADER 
ool 033020 OUTPUT #HAMF IR, #33. 
e914 sOQUTPUT THE ACTUAL WEDGE AT THIS POINT 
2916 033062 INCR WORK FROM #1 TO #132. BY #1 :NUMBER OF LINES TO OUTPUT 
033062 012737 000001 003154 MOV #1, WORK 
033070 000402 BR 50400$ 
033072 504018: 
033072 005237 003154 INC WORK 
023076 504008: 
033076 023727 003154 000204 CMP WORK , #132. 
033104 003123 BGT 504028 
2917 :ALSO NUMBER OF PRINTING CHARACTERS 
2919 033106 LET R4 := #OUTBUF :OUTPUT BUFFER POINTER 
033106 012704 003160 MOV HOUTBUF ,R4 
2920 033112 LET SPCCNT := #132. - WORK :NUMBER OF SPACES TO FILL IN 
033112 012737 000204 033430 MOV #132.,SPCCNT 
pede 033120 163737 003154 033430 SUB WORK , SPCCNT 
2922 :FILL THE OUTPUT BUFFER WITH THE REQUIRED NUMBER OF SPACES 
2924 033126 WHILE SPCCNT NE #0 DO 
033126 504038: 
033126 005737 023430 TST SPCCNT 
033132 001405 BEQ 504048 
2925 033134 LET (R4)+ :B= #40 ZSPACE FILL 
033134 112724 000040 MOVB #40, (R4)+ 
2926 033140 LET SPCCNT := SPCCNT - #1 ZUPDATE FILLER COUNTER 
033140 005337 033430 DEC SPCCNT 
2927 033144 ENDDO 
033144 000770 BR 50403$ 
033146 504048: 
2928 033146 LET CCNT := #0 
033146 005037 002304 CLR CCNT 
2929 033152 LET CHRGEN := #77 sFIRST CHARACTER A ‘'2"* 
033152 012737 000077 002310 MOV #77, CHRGEN 
2930 033160 LET STRCNT := #33, :# OF CHARACTERS IN GROUP 
033160 012737 000041 002506 MOV #33. , STRONT 
2931 033166 WHILE CCNT LT WORK DO :NOW FILL IN REST OF BUFFER 


G 8 


SEQ 0096 
CZLPLDO LP25, "a7 LPO7 TEST MACRO M1113 30=DEC=-80 09:36 PAGE 34-1 
SPURIOUS HAMMER FIRING 
033166 504058: 
033166 023737 002304 003154 CMP CCNT ,WORK 
033174 002022 BGE 50406$ 
2932 933176 IF STRCNT EQ #0 THEN 
033176 005737 002306 TST STRCNT 
2933 033202 001006 BNE 504078 
$3ee RESET GROUP POINTERS AND COUNTERS 
2936 033204 LET STRCNT := #33. 
033204 012737 000041 002306 MOV #33.,STRCNT - 
2937 033212 LET CHRGEN := #77 
033212 012737 000077 002310 MOV #77,CHRGEN 
2938 033220 ENDIF 
033220 504078: 
2939 033220 LET (R4)+ :B= CHRGEN 
033220 113724 002310 MOVB CHRGEN, (R4) + 
2940 033224 LET CHRGEN := CHRGEN + #1 
033224 005237 002310 INC CHRGEN 
2941 033230 LET CCNT := CCNT + #1 
033230 005237 002304 INC CCNT 
2942 033234 LET STRCNT := STRCNT - #1 UPDATE POINTERS AND COUNTERS 
033234 005337 002306 DEC STRCNT 
2943 033240 ENDDO 
033240 000752 BR 50405$ 
eas 033242 50406$: 
tH NOW SET UP LINE TERMINATOR AND OUTPUT THE LINE. 
2947 033242 LET (R4)+ :B= #12 
033242 112724 000012 MOVB #12, (R4)+ 
344 OUTPUT THE LINE 
2950 033246 OUTPUT #OUTBUF ,4132. : SEND THE DATA, NO LF YET 
2951 033310 OUTPUT #OUTBUF +132. ,41 ; THIS MAKES SURE OUTPUT IS SENT 
sore BEFORE CHANGING OUTBUF DATA ! 
2954 033352 ENDINC 
033352 000647 BR 50401$ 
033354 50402$: 
2955 033354 LET OUTBUF :B= 414 
033354 112737 000014 003160 MOVB #14,OUTBUF 
2956 033362 OUTPUT #OUTBUF ,41 
2957 033424 EXIT TST 
033424 104432 TRAP CSEXIT 
2958 033426 000046 -WORD 1L10020-. 
43 COUNTERS, POINTERS, TEXT BUFFER, AND HEADER FOR TEST PRINTOUT 
ast 033430 000000 SPCCNT: .WORD 0 
2963 ;TEST HEADER MESSAGE 
2964 NLIST BEX 
2965 033432 123 120 125 HAMFIR: .ASCIZ /SPURIOUS HAMMER FIRING TEST 09/<12><12><12> 
2967 


2968 “LIST BEX 


| 

' CZ7LPLDO LP25, ‘Sit es 
SPURIOUS HAMMER F 

2969 

| soy 

2971 

| 2972 Oe eee 


033474 
‘ 033474 7404401 


2973 
2974 033476 


TEST 


4H 8 
MACRO M1113 30=DEC=-80 09:36 PAGE 34-2 


«EVEN 
ENDTST 
L10020: 
TRAP CSETST 


ENDMOD 


SEQ 9097 


CALL DO ree LP26, LPO7 TEST 


PRINT C 
2976 

2977 

2978 
79 


2996 


2996 
2997 


2998 
0 


033476 


033522 


033524 
033524 


012746 
012746 


013701 
005301 
000001 


005037 
000402 
005237 
023701 
003402 
000137 
013702 
006302 
032762 


012705 


034503 
000001 
000004 
002012 


002314 


002314 
002314 
034406 


002314 


002000 
034402 


000015 


034742 


033720 


I 8 
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002512 


002302 


-SBTTL PRINT CONTROL 
BGMOD 


“THIS TEST CHECKS THE PRINT CONTROL BY SENDING MORE THAN 132 CHARACTERS 
HARACTERS IN fet: OF 132 CHARACTERS 
i BE DISREGARDED. THIS TEST DOES NOTHING ON ALL ink. 

HREE LINES ARE PRINTED PER ITERATION, THESE LINES Witt IDENTIFY THE 


ZBEFORE SENDING A PRINT COMMAND. ALL 


COLUMN @ home neg We THE yw EXAMPLE 


2 3 
212345678901 2345678901234567890... ccc eee eeceees 
> NOTICE THAT THE PRINTOUT SHOULD IDENTIFY 132 COLUMNS ACROSS THE PAGE. 


THIS OUTPUT IS REPEATED 13 TIMES. 
ses i0. ; 
PRINTF #NOLPO7 

MOV rectal -(SP) 
MOV #1,-(SP 


MOV SP.R 

TRAP CSPNTF 

ADD #4,SP 
LET-R1 := LSUNIT - 41 

MOV LSUNIT,R1 

DEC R1 
$BRUMP=1 
INCR LUNIT FROM #0 TO R1 BY #1 

CLR LUNIT 

BR 50411$ 
50410$: 

INC LUNIT 


50411$: 
CMP LUNIT,R1 
BLE 50412$ 
JMP 50413$ 
50412$: 
LET R2 := LUNIT SHIFT 1 
MOV Lye T Re 


ASL 2 
IF khang 4 NOTSETIN STATUS(R2) THEN 
BIT SF LAGO? STATUS (R2) 


50414 4$ 

OUTPUI #PRTICTL,456.,,LUNIT 
LET COUNT := #13. 

MOV a - COUNT 


LET RS := #TABLE1 
MOV WTABL EIR R5 
WHILE (RS) NE #0 DO 
50415$: 
TST (R5) 


2 +6 
JMP 50416$ 


SEQ 0098 


- CZLPLDO LP25, LP26, LPO7 TEST 
_ PRINT CONTROL 


| 3005 033656 

033716 000753 

033720 

3007 033720 
033720 

3008 033726 

3009 

3010 033770 

| 033770 

| 3011 035774 


| 
| 033776 001002 
034000 000137 034046 
3012 034004 


112737 000012 


012705 034776 


034110 012737 000016 
034116 000402 


034120 005337 002276 
034124 023727 002276 
002002 
034134 000137 034204 


034202 000746 
204 


034310 005337 002302 
034314 005737 002302 


034322 000137 034332 
3023 034326 000137 033642 


034332 112737 000014 


3026 034340 

3027 034402 E 
034402 

3028 034402 
034402 000137 033532 JMP 
034406 

3029 177777 = 

3030 034406 
034406 104432 TRAP 


J 8 
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003160 


002276 


000001 


003160 


504168: 


50417$: 


50420$: 


504218: 


50422$: 


504238: 


50424$: 


50425$: 


504148: 
ENDINCR 


50413$: 


BR 


TST 


MOVB 
ND IF 


$BRJMP=~1 


EXIT TST 


OUTPUI (R5)+,410.,,LUNIT 
ENDDO 
50415$ 
LET OUTBUF :B= #12 
#12,0UTBUF 
OUTPUI #OUTBUF ,41,,LUNIT 
LET RS := #TABLE2 
ATABLE2,RS 
WHILE (RS) NE #0 DO 
(R5) 


+6 
504208 

OUTPUI (R5)+,410.,.LUNIT 
ENDDO 
50417$ 
OUTPUI #OUTBUF ,41,,LUNIT 
DECR LINCNT FROM #14. TO #1 BY #1 
#14. ,LINCNT 
504228 
LINCNT 
LINCNT #1 
504238 
504248 

OUTPUI #X11,410.,,LUNIT 
ENDDECR 
504218 
OUTPUI #OUTBUF ,41,,LUNIT 
OUTPUI #OUTBUF .41,.LUNIT 
LET COUNT := COUNT - #1 


COUNT 
1F COUNT GT #0 THEN 
COUNT 


ENDIF 


LET OUTBUF :B= #14 
#14, QUTBUF 
OUTPUI #OUTBUF ,41,,LUNIT 


50410$ 


CSEXIT 


SEQ 9099 


k 8 


SEQ 0100 
| CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30-DEC~80 09:36 PAGE 35-2 
| PRINT CONTROL 
034410 000422 WORD L10021-. 
3031 .NLIST BEX 
3032 034412 120 122 111 PRICTL: .ASCII /PRINT CONTROL TEST 10/ <12> 
3033 034440 103 110 117 ZASCIZ /SHOULD SHOW 132 COLUMNS PRINTED/<12><12><15> 
3034 034503 065 116 065 NOLPO7: :ASCIZ /%NZAPRINT CONTROL TEST DOES NOTHING ON LPO7"S. 2N/ 
34564 040 x0: ASCIT / 0/ 
3037 034576 040 040 040 x1: “ASCII / 1/ 
034610 040 040 40 x2: “ASCII / 2/ 
9034622 040 040 040 x3: “ASCII / 3/ 
3040 0346 040 040 040 x4: “ASCII / 4/ 
3041 034646 040 040 040 XS: “ASCII / 5/ 
3042 034660 040 040 040 x6: ASCII / 6/ 
3043 034672 = 040 040040 x? ASCII] / ?/ 
3044 034706 040 040 040 x8: “ASCII / 8/ 
3045 054716 040 040 x9: ASCII / 9/ 
ST OSAID OE ONE OE. WHE OC /1234567890/ 
3049 EVEN 


3050 034742 034564 034564 034564 TABLE1: .WORD X0,X0,X0,X0,X0.X0.X0.X0,X0.X7,X1,X1,X1,0 
3051 034776 034576 034610 034622 TABLE2: os K1,K2,X3,K4,X5,KX6,X7XBXIKO,K1KOX35,0 


3052 EVEN 
3053 
3054 -LIST BEX 
3055 035032 ENDTST 
035032 L10021: 
035032 104401 TRAP CSETST 


3056 035034 ENDMOD 


L 8 


} 
| 
SEQ 0101 
CZLPLDO LP25, LP26, LPO? TEST MACRO M1113 30=DEC=80 09:36 PAGE 37 
| MULTIPLE LINE ADVANCE 
| 3059 “SBTTL MULTIPLE LINE ADVANCE 
| Het 085034 BGNMOD 
| 5063 |. ‘THIS TEST CHECKS THE MULTIPLE LINE ADVANCE OF THE LINE PRINTER. A LINE OF 
3064 “NUMBERS IS PRINTED AND THEN THE PAPER IS ADVANCED THAT NUMBER OF LINES. THUS THE 
3065 “NUMBER PRINTED WILL INDICATE THE NUMBER OF BLANK LINES FOLLOWING THAT 
3066 “LINE. THE NUMBER OF LINES IS VARIED BETWEEN 2 AND 7 AND A LINE OF 
3067 PALL O*S WILL INDICATE THE END OF THE TEST SEQUENCE. 
5068 = 
39 
70 
3071 035034 BGNTST. 11. 
0350 111: 
3072 
3078 =PRINT TEST IDENTIFICATION 
3075 035034 OUTPUT #MULINE #86. 
3077 035076 LET STACHR := #TABSTR -QUTPUT CHARACTERS 
sora 035076 012737 035344 035342 MOV. #TABSTR,STACHR 
3079 035104 REPEAT 
035104 50426: 
3080 035104 LET LINCNT :B= @STACHR :GET A CHARACTER TO OUTPUT 
035104 117737 000232 002276 mo aSTACHR ,LINCNT 
3081 035112 LET LINCNT := LINCNT AND #7 :MAKE THE ASCII TO OCTAL 
035112 013746 002276 MOV. LINCNT ,=(SP) 
035116 042716 000007 Bic CWP CSPS 
35122 042637 002276 BIC (SP) +,LINCNT 
3082 035136 LET R3_:= #OUTBUF :SET UP OUTPUT BUFFER 
035156 012703 003160 MOV #OUTBUF .R3 
3083 035132 INCR CCNT FROM #1 TO #132. BY #1 
35132 012737 000001 002304 MoV. #1. CCNT 
035140 000402 BR 50427$ 
035142 504308: 
035142 005237 002304 INC CCNT 
035146 504278: 
035146 023727 002304 000204 CMP ss CCN , #132. 
035154 003003 BGT 504318 
3084 035156 [ET (R3)+ :B= aSTACHR :PUT CHARACTER IN OUTPUT BUFFER 
035156 117723 000160 MOVB. @STACHR. (R3) + 
3085 035162 END INC 
035162 000767 BR 50430$ 
35164 50431S: 
3086 035164 LET RG := #0 d 
035164 005004 CLR. RG 
3087 035166 WHILE R4 NE LINCNT DO 
035166 504328: 
035166 020437 002276 CMP —sRGLINCNT 
035172 001404 BEQ «504333 
3088 035174 LET (R3)+ :B= #12 :FILL WITH LINE FEEDS 
035174 112723 000012 VB #12.(R3)¢ 
3089 035200 LET RG := RG + #1 
005204 INC 
3090 035202 ENDDO 
035202 000771 BR 504328 








i  e 





, 035204 
3092 


3093 
3094 


3096 035220 
3098 035260 


WIWNWWNNWWNNWWWWNNWNWS 
a es a gg ss SS SS 
ee ed ed ed ws oo oO oO 
RARWRAOSRURARG 

oO 

WW 

Ww 


01370% 
062704 
005237 


005737 
001307 


112737 


104401 


CZLPLDO LP25, LP26, LPO7 TEST 
MULTIPLE LINE ADVANCE 


002276 
000204 
035342 


002276 


000014 


067 
125 


mM 8 
SEQ 0102 
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003160 


a O 
— = 
WEN 


504338: 


NOW OUTPUT THE ACTUAL LINE 


LET R 


4 := 
MOV 


ADD 


LET STACHR 


I 


OUTPUT #MOUTBUF ,R4 
UNTIL ose EQ #0 


BNE 
LET OUTBUF :B= # 
MOVB 


NC 


LINCNT + #132. 


:= STACHR + #1 


NUMBER OF CHARACTERS TO OUTPUT 
LINCNT ,R4 

#132. ,R4 

; UPDATE CHARACTER COUNT 


;OUTPUT THE LINE 


STACHR 


LINCNT 
50426$ 


14 
#14, O0UTBUF 


OUTPUT #OUTBUF ,41 


EXIT TST 
T 


RAP 


. WORD 


STACHR: .WORD 0 


-NLIST BE 
TABSTR: 
MUL INE: 


x 


-ASCIZ 
-ASCII 


-ASCIZ 


-EVEN 
-LIST BEX 
ENDTST 
L10022: . 


ENDMOD 


CSEXIT 
L10022-. 


/272637463540/ 
/MULTIPLE LINE ADVANCE TEST 11/<12> 
/NUMBERS PRINTED REPRESENT # LINES TO NEXT LINE PRINTED/<12><12> 


CSETST 


‘ N 8 


CZLPLDO LP25, eet LPO7 TEST MACRO M1113 30-DEC-80 09:36 PAGE 38 
CHARACTER ALIGNME 


SEQ 0103 


3120 .SBTTL CHARACTER ALIGNMENT 
eis} 035512 BGNMOD 
3123 THIS TEST CHECKS CHARACTER ALIGNMENT BY OVERPRINTING LINES OF ALTERNATING 
else zH* S AND SPACES WITH SPACES AND H'S. 
3126 035512 BoyTsT 12. 
035512 Tl2:: 
3127 :PRINT TEST IDENTISICATION 
3128 035512 OUTPUT #CHRALN,#30. ;, PRINT TEST NAME ON LP 
3129 :PRINT 246 LINES OF ALTERNATING ‘H'"S AND ‘'SPACE''S 
3130 035554 i$: LET LINCNT := #50. 
035554 012737 000062 002276 MOV #50..LINCNT 
3131 035562 2$: IF LINCNT LE “HO THEN 
035562 005737 002276 ST LINCNT 
035566 003002 per 50434$ 
3132 035570 INLINE <JMP 3$> 
035570 000137 036076 JMP 3$ 
3133 035574 ENDIF 
035574 504348 
3134 7LOAD BUFFER WITH ALTERNATING STRING OF ‘'H''*S AND ‘'SPACE'''S 
3135 035574 LET RG := MOUTBUF 
035574 012704 003160 MOV #OUTBUF ,R4 
3136 035600 INCR WORK FROM #1 TO #66. BY #1 : 132 CHARACTERS 
035600 12737 000001 063154 #1, WORK 
035606 000402 BR. 50435$ 
035610 50436$: 
035610 005237 003154 INC WORK 
035614 50435$: 
035614 023727 003154 000102 CMP WORK , #66. 
035622 003005 BGT 50437$ 
3137 035624 LET (R4)+ :B= #110 : PUT PATTERN INTO BUFFER 
035624 112724 000110 MOVB #110, (R4)+ 
3138 035630 LET (R4)+ :B= #40 
035630 112724 000040 MOVB #40, (R4)+ 
3139 035634 : ENDINCR 
035634 000765 BR 50436$ 
035636: 504378: 
3140 035636 LET (R4)+ :B= #CR ; FOLLOWED BY CR 
wat 035636 112724 000015 MOVB #CR,(R4)+ 
a166 ; SEND BASIC PATTERN 
3144 035642 OUTPUT M#OUTBUF 4132. 
$42 035704 OUTPUT MOUTBUF +132. ,41 
tee : OVERPRINT WITH LINE OF ALTERNATING SPACE AND ‘H' 
3149 035746 LET R4 := MOUTBUF +132. : FILL BUFFER WITH REVERSE PATTERN 
035746 012704 003364 MOV #OUTBUF +132. ,R4 
3150 035752 LET (R4)+ :B= #110 ; 4H 
035752 112724 000110 MOVB #110, (R4)+ 
3151 035756 LET (R4)+ :B= #LF : FOLLOWED BY A LINEFEED 
3152 035756 112724 000012 MOVB MLF,(R4)+ 
3153 035762 OUTPUT #OUTRUF+1,#132. : OVERPRINT 
3154 036024 OUTPUT #OUTRUF +133. 41 


CZLPLDO LP2S, LP26, LPO7 TEST MACRO M1113 30=DEC=80 09:36 PAGE 38-1 
CHARACTER ALIGNMENT 





SEQ 0104 


3155 036066 LET LINCNT := LINCNT = #1 
036066 005337 002276 DEC LINCNT 
3156 03075 INLINE <JMP 2$> 
036072 000137 035562 JMP 2s 
3157 036076 3$: 
3158 036076 LET OUTBUF :B= #14 
36076 112737 000014 003160 MOVB #14 ,O0UTBUF 
3159 036104 OUTPUT #OUTBUF ,#1 
3160 036146 004737 005544 JSR _PC,QUIET 
3161 036152 EXIT TST 
036152 104432 TRAP CSEXIT 
036154 000062 WORD 110023-. 
Hs -NLIST BEX 
Sez 036156 103 110 101 — eASCIZ /CHARACTER ALIGNMENT TEST 12/<12><12><12> 
. Vv 
3165 -LIST BEX 
3166 036216 NDTST 
036216 L10023: 
216 104401 TRAP CSETST 


C3621 
3167 036220 ENDMOD 


— CZLPLDO LP25, LP26, LPO7 TEST 


INTERRUPT SERVICE 


69 
120 036220 


—~ ~~ 
NOW SE _ 


000000 
036220 000020 


ese 

WNWNWWANAWAWY 
8 ad aad aad ed cd ed ed eed eed 2 
RARAVAS Ia 

oO 

& 

tw 

Nm 

So 

oO 

— 

N 

8 


lelejlelelelele)\a) 
SERETSS 
aS SS 
S2e28SS 
NMS NAH NNRS 
BSS cs.— 
rmAO—ONNYO— 


ROUTINES 


MACRO M1113 
.SBTT 
BGNSR 


INTE 


c 9 
30=DEC-80 09:36 PAGE 39 


: INTERRUPT SERVICE ROUTINES 


RRUPT VECTORS ait : hanes wdc INITIALIZATION 


[POINTING TO THE BASIC ROUTINES 


7 SET 
3 LINE 


x=0 
INTOO: 


K=X+2 


UP THE UNIT NUMBER CAUSING THE INTERRUPTS. 
NUMBER IS RETURNED IN R2 


«REPT 16. 


ET R2 := 


JMP IODRV 

MOV #PR104 ,RO 
TRAP C$SPR 

MOV R2,-(SP) 
MOV XR 

JMP IODR 

MOV #PRI04 RO 
TRAP C$SPRI 
MOV R2,-(SP) 
MOV aX, 





SEQ 9105 


CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 39-1 
INTERRUPT SERVICE ROUTINES 


SEQ 0106 


Sy 


036414 000137 004762 JMP = TODRV 
036420 012700 000200 MOV. —-#PRI04,RO 
036424 104441 TRAP PR 
036626 010246 MOV —-R2, =( SP) 

| 036430 012702 900020 MOV ¥ 
| 036434 000137 004762 JMP = LOBRY 
036440 012700 000200 MOV —-#PRI04,RO 
| 036644 104441 TRAP —C$SPRI 
036646 010246 MOV —-R2, = (SP) 
036450 012702 000022 MOV XR 
036454 000137 004762 MP LOBRV 
| 036460 012700 000200 MOV —-#PRI04,RO 
106441 TRAP 
0 010246 MOV R2,-(SP) 
036470 012702 000024 MOV =X, 
036474 000137 004762 MP TODRV 
036500 012700 000200 ~- MOV. —- APRI04,RO 
036504 104441 TRAP PR 
506 010246 MOV R2,-(SP) 
036510 012702 000026 MOV AX, 
036514 000137 004762 JMP ———TODRV 
036520 012700 000200 MOV. #PRI04,RO 
036524 104441 TRAP 
036526 010246 MOV —-R2, = (SP) 
036530 012702 000030 MOV =X, 
137 004762 JMP = TOBRV 
036540 012700 000200 MOV. —- #PRI04,RO 
036544 104441 TRAP C$SPRI 
036546 010246 MOV —-R2, = (SP) 
036550 012702 000032 MOV =X, 
036554 000137 004762 JMP 
012700 000200 V__—-#PRI04,RO 
036564 104441 TRAP C$SPRi 
36566 010246 MOV —-R2, = (SP) 
036570 012702 000034 MOV , 
936574 000137 004762 JMP RV 
012700 000200 MOV —- #PRI04,RO 
036604 104441 TRAP —C$SPRI 
010246 MOV —-R2, = (SP) 
036610 012702 36 MOV AX, 
036614 000137 004762 MP LODRV 


3187 


—E 9 


CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 40 
— CLOCK SERVICE ROUTINE 


S€Q 0107 


$15) .SBTTL CLOCK SERVICE ROUTINE 
-+¢ 
3191 UPDATES THE COUNTER AT A RATE OF 16.67 MILLISECONDS PER TICK 
$136 AND UPDATES A SECOND COUNTER WHEN THE FIRST OVERFLOWS. 
3194 
3195 036620 BGNSRV 
3196 03662 » CLKTCK: SETPRI #PRIO6 
036620 012700 000300 MOV #PRI06,RO 
036624 104441 TRAP C$SPRI 
3197 036626 IF TICK EQ #0 THEN 
036626 005737 036674 TST TICK 
036632 001005 BNE 50440$ 
3198 036634 LET TICK := #60. 360 TICKS PER SECOND 
036634 012737 000074 136674 MOV #60.,TICK 
3199 936642 LET TIME := TIME + #71 
436642 005237 036672 INC TIME 
3200 036646 ENDIF 
036646 504408: 
3201 036646 LET TICK := TICK = #1 ;BACK UP SECOND TIMER 
036646 005337 036674 DEC TICK 
3202 036652 IF CLKTYP EQ #2 THEN 
036652 023727 002322 000002 CMP CLKTYP,#2 
036660 001003 BNE 50441$ 
3203 036662 LET @CLKCSR := #100 
036662 012777 000100 143436 MOV #100, @CLKCSR 
3204 036670 ENDIF 
036670 50441$: 
3205 
3206 036670 ENDSRV sAND EXIT 
036670 110025: 
Sor 036670 000002 RTI 
3208 036672 900000 TIME -WORD 0 
3209 036674 000000 TICK -WORD 0 


F 9 


CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 41 
HARDWARE PARAMETER SECTION 


SEQ 0108 


3211 .SRBTTL HARDWARE PARAMETER SECTION 
$516 036676 BGNMOD 
321 
3214 3¢¢ 
3215 THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR 10 
3216 sFURNISH THE HARDWARE INFORMATION CESSARY TO BUILD THE HARDWARE 
3217 ;P-TABLES. 
3218 é 
3219 ;= 
3220 036676 BGNHRD 
036676 000020 ~WORD L10026=-LS$HARD/2 
$991 036700 LSHARD:: 
2 
3222 036700 GPRMA GETADR,0,0,160000,177516, YES 
036700 000031 WORD TSCODE 
036702 036740 .~ WORD GETADR 
036704 160000 . WORD TSLOLIM 
036706 177516 ~ WORD TSHILIM 
3223 036710 GPRMA GETVEC,.2,0,110,770. VES 
036710 001031 WORD TSCODE 
036712 036755 .~ WORD GETVEC 
036714 000110 . WORD TSLOLIM 
036716 000770 . WORD TSHILIM 
3224 036720 GPRMD GETTYP,4,0,3.0,3.YES 
036720 002032 .WORD TS$CODE 
036722 036776 .WORD GETTYP 
036724 000003 . WORD 3 
036726 000000 .WORD TS$LOLIM 
036730 000003 -WORD TSHILIM 
3225 036732 GPRML  GETAND,6,1,YES 
036732 003130 .WORD TS$CODE 
036734 037045 .WORD GETBND 
36736 000001 WORD 1 
3226 036740 ENDHRD ™ 
036740 L1002 
3227 -NLIST BEX 
3228 036740 114 120 061 GETADR: .ASCIZ /LP11 ADDRESS/ 
3229 036755 111 116 124 GETVEC: .ASCIZ /INTERRUPT VECTOR/ 
3230 036776 105 116 124 GETTYP: .ASCIZ /ENTER O IF LP25, 1 IF LP26, 2 IF LPO? / 
3231 037045 071 066 040 GETBND: .ASCIZ /96 CHARACTER BAND/ 
3232 ; ENTER 3 IF LPYY FOR FUTURE EXPANSION 
3233 -LIST BEX 
3234 EVEN 


CZLPLDO 


SOF TWARE 


0 
3244 
0 


LP25, LP26, LPO7 TEST 


PARAMETER SECTION 


0 

037140 
037140 
037140 


037356 
6 


037404 
037444 


037444 


000000 
000000 


G 9 
SEQ 9109 


MACRO M1113 30=DEC=80 09:36 PAGE 42 


-SBTTL SOFTWARE PARAMETER SECTION 


e 


haus 
THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH 
THE SOFTWARE INFORMATION NECESSARY TO BUILD THE SOFTWARE P-TABLES. 


BGNSF T 


-WORD L10027=L$SOF 1/2 


LSSOFT:: 


ENDSFT 


GETMAX: .AS 
“LIST BEX 
~EVEN 


PATCH: BLKW 
LASTAD 
~EVEN 
WORD 
. WORD 
LSLAST:: 
ENDMOD 
END 


MGTINT,O,1,YES 
TSCODE 
MGT INT 


1 
GETMAN,2,1,YES 
TSCODE 

dite 


GETTIM,4,D,277,4,60.,VES 
TSCODE 

GETTIM 

37 


LIM 
GETPLA,6,1,YES 
TSCODE 
dies 


GE TMAX,10,D0,377,1,255.. YES 
TSCODE 

GE TMAX 

377 

TSLOLIM 

TSHILIM 


/RUN MANUAL INTERVENTION TESTS/ 

/PERFORM MANUAL PRINTING SPEED MEASUREMENT / 

/DESIRED TIME INTERVAL FOR PRINTING SPEED CALCULATION/ 
/TESTING IN U.S.A/ 

/AUTODROP ERROR COUNT/ 


20 


oo 


H 9 


SEQ 0110 

CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 42-1 

| SYMBOL TABLE 

| ACTIVE= 920000 BYTECO= 000403 C$MANI= 000050 FLSSEL 016609 IER = 020000 G 
ADR = 000020 G CCNT 002304 C$MEM = 000031 FLS1 016677 IGNORE 010000 
ASSEMB= 000010 CHAR 025636 C$MSG = 000023 F$AU_ = 000015 INDEX 002344 
AUTCON 027616 CHNSEC 016376 CSOPEN= 000034 FSAUTO= 000020 INHINT 2 
AUTSEC 027500 CHRALN 036156 C$PNTB= 000014 = 000040 INTERR 011214 
BANDSW 014046 CHRGEN 002310 C$PNTF= C00017 FSCLEA= 000007 INTER1 
BGTLCH 014255 CK 756 C$PNTS= 000016 F$DU = 16 INTFAC 011252 
BGTSwI 010074 CS$PNTX= 000015 FSEND = 000041 INTHDL 011244 
BIN2DA 004550 CLKCSR 002326 C$Q10 = 000377 F$HARD= 000004 INTLK 1 
BITO = 000001 G (LKENA 002334 C$RDBU= 000007 F$HW = 000013 INT 036220 
B1T0O = 000001 G CLKSET 002330 C$REFG= 000047 FSINIT= 00 IOCTRL 005160 
BIT01 = 000002 G CLKTCK 036620 C$RESE= 000033 FSIMP = 000050 IODRV 004762 
BITO2 = 000004 G CLKTYP C$REVI= 000003 F$MOD = 000000 ISR = G 
B1T03 = 000010 G CLKVEC C$RFLA= 000021 FSMSG = 000011 IXE = 004000 G 
BIT04 = 000020 G CLOCKP 002324 C$RPT = 000025 FSPROT= 000021 I$AU_ = 000041 
BITOS = 000040 G 002302 C$SEFG= 000046 F$PWR = 000017 I$AUTO= 1 
BITO6 = 000100 G COUNTD 004 C$SPRI= 000041 FSRPT = 000012 ISCLN = 1 
BITO7 = 000200 G = 000015 G C$SVEC= 000037 F$SEG = 000003 I$DU_ = 000041 
BITO08 = 000400 G CSRERR 003406 C$TPRI= 000013 F$SOFT= 000005 I$HRD = 1 
BITO9 = 001000 G CTLEND 005536 DATPTH 025640 F$SRV = 000010 ISINIT= C00041 
BIT1 = 2G CTLLOP 005220 DEL = 000177 G F$SUB = 000002 ISMOD = 000041 
BIT1IC = 002000 G CURADD 002552 DELCNT 003052 F$SW = 000014 ISMSG = 000041 
BITi1 = 000 G CURCNT 002752 DFPTBL 002244 FSTEST= 000001 I$PROT= 0 
BIT12 = 010000 G C$AU_ = 000052 DIAGMC= 000000 GETADR 036740 I$PTAB= 000041 
BI1T13 = 020000 G C$AUTO= 00 DIGITS 004760 GETBND 037045 I$PwR = 000041 
BIT14 = 040000 G C$BRK = 000022 DROPED= 040000 GETMAN 037176 ISRPT = 000041 
BIT15 = 100000 G C$BSEG= 000004 DROPIT 005612 GETMAX 037356 I$SEG = 000041 
BIT2 = 000004 G C$BSUB= 000002 EF.CON= 000036 G GETPLA 037335 I$SETU= 000041 
BITS = 000010 G C$CEFG= 000045 EF .NEW= 000035 G GETTIM 037250 I$SSFT = 000041 
BIT4 = 000020 G C$CLCK= 000062 EF .PWR= 000034 G GETTYP 036776 I$SRV = 000041 
BITS = 000040 G CSCLEA= 12 EF .RES= 000037 G GETVEC 036755 I1$SUB = 
BIT6 = 000100 G C$CLOS= 000035 EF .STA= 000040 G G$CNTO= 000200 ISTST = 000041 
BIT7 = 000200 G C$CLP1= 000006 END2 011026 G$DELM= 000372 J$JMP = 000167 
BI118 = 000400 G C$CVEC= 000036 END4 021554 G$DISP= 000003 LF = 000012 G 
BIT9 = 001 G C$DCLN= 000044 ERFLG = 000400 G$EXCP= 000400 LINCNT 002276 
BNDPAT 023040 C$DODU= 000051 ERRCOD 002336 G$HILI= 000002 LINPER 023101 
BNDRDY 014164 C$DRPT= 000024 ERRFLG 002340 G$LOLI= 000001 LINSEC 016414 
BNDSWI 003556 C$DU = 000053 ERROR = 100000 = 000000 LINSWI 016434 
BNDSW1 014134 CSEDIT= 000003 ERRSVC 003112 GS$OFFS= 000400 LINSW? 016520 
BNDTST 031731 CSERDF= 000055 ERRTBL 003114 G G$OF SI= 000376 LOBYTE= 000377 
BNKSWI 003511 C$SERHR= 000056 ERR11 011332 G$PRMA= 000001 LOE = 040000 G 

= G C$ERRO= ERR12 011406 GS$PRMD= 000002 LOT = 000010 G 
BPID25 031760 CSERSF= 000054 ERR13 011471 G$PRML= 000000 PBUF 002452 
BPID26 031766 C$ERSO= 000057 EVL = 000004 G G$RADA= 000140 LPCSR 002356 
D 031774 C$ESCA= 000010 ESEND = 002100 G$RADB= 000000 LPDROP 

BP64Q1 032050 C$ESEG= 000005 E$LOAD= 000035 G$RADD= 000040 LPERR 004354 
BP6402 032144 C$ESUB= 000003 E 005720 G$RADL= 000120 LPERR2 023030 
BP6403 032241 CSETST= 00 FF 00014 G G$RADO= 000020 LPINTR 003012 
BP6404 032335 C$EXIT= 000032 FFSET 017225 G$XFER= 000004 LPM64 3503 
BPI6ID 032022 C$GETB= 000026 FLAG 002274 G$YES = 000010 LPM96 = 02.3564 
BP9601 032433 C$GETW= 000027 FLAGDA 004754 HAMFIR 033432 LPVEC 002416 
BP96Q2 032527 = 000043 FLAGO7= C02000 HAMRDY 013762 LSTCNT 0023 
BP9603 032624 C$GPHR= 000042 FLAG26= 001000 HAMRSW 013644 LUNIT 002314 
BP9604 032720 C$GPLO= 000030 FLAG96= 010000 HAMSW1 013721 L$ACP = =002110 G 
BUFADD 002350 C$GPRI= FLSMSG 01 HOE = 100000 G L$APT 002036 G 
BUFCNT 002352 C$INIT= 000011 FLSMS1 017373 IBE = 010000 G L$AUT 002070 G 
BUFREP 002354 C$INLP= 000020 FLSMS2 017453 IDU == 000040 G L$AUTO 002254 G 


1 9 


SEQ 0111 

CZLPLDO LP25, LP26, LPO7 TEST MACRO M1113 30=DEC=80 09:36 PAGE 42-2 
SYMBOL TABLE 
L$CCP 002106 G Lees 017646 PATTER 025676 TIMOUT= 000002 UNIT 002312 
L$CLEA 1 G L10015 025254 PERIOD 002266 TOF = 000014 USA 002270 
L$CcO 002032 G L10014 025700 PLOC 007774 TXERR 003661 UUT 002342 

002011 G 110015 026576 PNT = 001000 G TXNOIN 003733 UUTEQO 003764 
LSDESC 002162 G 110016 030316 PRI = 002000 G T$ARGC= 000001 VFUCMD 002346 
LSDESP 002076 G 110017 033016 PRINTR 002320 TSCODE= 004052 VF UINF 
LSDEVP 002 G L10020 033474 PRIOO = G TSERRN= 000012 VFUINT 014355 
LSDISP 002132 G 110021 035032 PRiQ1 = G TSEXCP= 0000 VFURDY 014447 
LSOLY 002116 G 110022 035510 PRIO2 = 009100 G TSFLAG= 000040 VFUSEL 00403 
LSDTP 002040 G 110023 036216 PRIO3 = 000140 G $GMAN= 000 VFUSE1 004121 
iLSOTYP 002034 G L10025 036670 PRI04 = 000200 G TSHILI= 000377 WORK 003154 G 
L$DUT 002072 G L10026 036740 PRIOS = 000240 G T$SLAST= 000001 WORK1 003156 
L$DVTY 002222 G 110027 037140 PRI06 = 000300 G TSLOLI= 000001 = 
L 002052 G L26M64 023645 PRIO7 = 000340 G TSLSYM= 010000 X$ALWA= 
LSENVI 002044 G L26M96 023726 PRTCHR 026536 TSLTNO= 000014 X$F ALS= 0 
LSETP 002102 G MANS 002264 PRTICTL 034412 TSNEST= X$OFFS= 000400 
LSEXP1 002046 G MAXERR 002272 PRTSPD 023436 TSNSO = 600010 X$TRUE= 000020 
LSEXP4 002 G MGTINT 037140 PTABAD 002316 T$NS1 = 000 x0 034564 
LSEXPS 002066 G MOVMSG 017546 QUIET 005544 TSNS2 = 000005 x 034576 
LSHARD 036700 G MRESET 007275 RDYERR 003424 TSP TNU= 00 x11 034730 
LSHIME 002120 G MSGADR 002712 READY 007603 TSSAVL= 177777 x 034610 
LSHPCP 002016 G MSGCNT 002612 REFLIN 017034 TSSEGL= 177777 x3 034622 
LEHPTP 002022 G MULINE 035361 REPCNT 002652 T$SUBN= x4 034634 
L 002244 G NMLFLS 017133 REPLUP 021742 TSTAGL= 177777 x5 034646 
L$ICP_ 002104 G NOCLCK 007640 RESET? 007374 TSTAGN= 010030 x6 034660 
L$SINIT 005754 G NOCLK 004147 RESET2 007467 TSTEMP= 000000 x7 034672 
LSLADP 002026 G NOINTR= 00 RESTOR 024151 TSTEST= 900014 x8 034704 
L$LAST 037450 G NOLPO7 034503 RESVEC 010002 G TSTSTM= 177777 x9 034716 
L$LOAD 002100 G NONBUF 027721 SFPTBL 002262 G T$TSTS= $AGNLE= 177777 
L$LUN 002074 G NONCHR 027370 SKIPS 027714 T$$AUT= 010002 $BRIMP= 177777 
LSMREV 002050 G NOTIM 007702 SPCCNT 033430 TSSCLE= 010005 SERFLG= 400 
LSNAME 002 G 7 031652 SPED1 023042 T$$HAR= 010026 F = 000310 
LSPRIO 002042 G NRGT16 007156 SPED2 065 T$$HW = 010001 $F$BAD= 000401 
LSPROT 002122 G NRGT17 007241 SPED3 023071 TS$INI= 010004 $FSBLA= 000170 
LSPRT 002112 G OFFLIN 023146 STACHR 035342 TS$PRO= 010000 $FSCAS= 000150 
LSREPP 002062 G ONEF IL= STATER= 000001 T$$SOF= 010027 $FSDEC= 000220 
L$REV 002019 G ONLIN] 023206 STATUS 002512 TS$SRV= 010025 $FS$DO = 000340 
L$SOFT 037072 G ONL I 023307 STRCNT 002306 T$$SwW = 010003 $FSFAL= 000405 
L$SPC_ 002056 G ONLINS 023405 SVCGBL= 000000 TS$TES= 010023 $F $GOO= 
L$SPCP 002020 G OUTBUF 003160 SVCINS= 000000 T 010 G $FSIF = 000110 
L$SPTP 002024 G OUTTIM 003706 010 $FSINC= 000210 
L$STA 002030 G O$APTS= 000000 0 $FS$LOO= 0002 
L$SwW 002262 G O$AU = 000000 0103 $F = 000160 
L$TEST 002114 G O$BGNR= 000000 0 G $FSNO = 000403 
L$TIML 002014 G O$BGNS= 000001 0 G $FSOR = 000320 
LSUNIT 002012 G O$pU = 0 0 G $FSRTI= 000350 
LO7M64 024007 OSERRT= 0 G $FSRTN= 0003 
LO7M96 024070 O$GNSW= 000001 0 G SFSSEL= 000140 
110001 002254 O$POIN= 1 0 $FSTHE= 000330 
L10002 002256 O$SETU= 000 0 $FSTRU= 0004 
L10003 002274 PAPCHK 016772 0 G $FSUNT= 000130 
110004 007776 PAPRDY 013535 0 G $F SWHI= 000120 
L10005 010256 PAPRSW 013416 G $FSYES= 
L10006 011546 PAPSWI 003446 G SIFLEV= 177777 
110007 011242 PAPSwW1 013466 030320 G $1SKO = 000001 
110010 011250 PAPTST 013624 19 G $1Sk1 = 000001 
110011 014540 PATCH 037404 = 000200 G $1SK2 = 000001 
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SEQ O11e 

CZLPLDO eres LP26, LPO7 TEST MACRO M1113 30=DEC-80 09:36 PAGE 42-3 

SYMBOL TABLE 

$1Sk3 = 000001 $NSK3 = 110 $TSKO = 050441 $$BYTE= 000403 $$REG = 177777 

$1SK4 = 000001 $NSK4 = 000110 $TSK1 = 050436 $$CASE= 000404 $$RETU= 000000 
0 = 000000 $NSK5S = 000110 $TSK2 = 050433 $$DST = 000037 $$RTN1= 000000 

SLOCTA= 177777 SSAVE = 1 $TSK3 = 050425 $$ELOC= 000402 $$RIN2= 

$.SKO = 000000 $SAVLE= 177777 $TSK4 = 050424 $SERFL= 000000 $$SRC = 27 

$LSTIN= 000900 $SELLE= 177777 $TSK5 = 050255 $$FLAG= 000001 $$TGSV= 050213 

$LSTTA= 000000 $SSKO = 050436 $TSK6 = 050256 = 000000 $$TGS1= 

SNESTL= 177777 $SSK1_ = 000402 $TSK7 = 050246 $$INH = 000403 $$TGS2= 000000 

$NSKO = 000110 $TAGLE= 177777 $ = 000403 $$LOC = 036660 $$TO = 000000 

$NSK1 = 000120 $TAGNU= 050442 $$ARGC= 000000 $$LOCN= 000000 $$$TAG= 050000 

$NSK2 = 000110 STEMP = 050441 


- ABS. 037450 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 58808 WORDS K:,4 PAGES) 
DYNAMIC MEMORY: 21870 WORDS ( 84 PAGES 


ELAPSED TIME: 02:09:22 
C7LPLD,CZLPLD/=SP=LB1:(1,13SVC/Mi ,DB1:[205,121]SPMACJ/M. ,DB1:(205,10]CZLPLD.P11 


